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FOREWORD 

This  is  the  final  report  of  work  accomplished  and  results  achieved 
at  the  Test  Facility  Group,  Structures  Test  Branch,  Structures  and 
Dynamics  Division,  Air  Force  Flight  Dynamics  Laboratory,  WPAFB,  Ohio 
under  in-house  Project  1347,  Task  03,  Work  Unit  02,  "Digital  Load  Control 

This  report  covers  work  performed  between  January  1976  and  June  1977 
Mr.  Nirmal  K.  Mondol  was  the  principal  investigator.  Maj  R.  M.  Potter, 
Air  Force  Institute  of  Technology,  Electrical  Engineering  Department, 
provided  the  design  and  analysis  reported  in  Sections  II  and  III. 

Mr.  Don  Heidorn  of  Digital  Equipment  Corporation  provided  the  software 
under  Contract  F3361 5-76-C-001 9.  Capt  Vince  Darcy  of  the  Flight  Controls 
Group  provided  the  initial  direction  towards  successful  control. 

Prof.  J.  J.  D'Azzo,  Capt  J.  B.  Peterson,  and  Capt  P.  E.  Miller  of  the 
Air  Force  Institute  of  Technology,  Electrical  Engineering  Department, 
assisted  with  consultation  on  a formalized  approach  to  system  analysis 
and  setup.  In-house  support  was  furnished  by  Mr.  Dansen  Brown,  Flight 
Analysis  Group. 

Mr.  Adam  Grube  designed  and  built  the  low-level  feedback  and 
multiplexer  system.  Mr.  Joseph  Pokorski  provided  all  engineering  support 
required  for  the  load-sensing  systems.  Messrs.  Dave  Shultz  and 
Roger  Orchard  provided  immediate  technical  support  for  the  project. 
Hydraulics  support  was  furnished  by  Messrs.  Keith  Fortune  and 
Harold  Schaefer.  Messrs.  Don  Brammer,  George  Hoi  derby  and  James  Specht 
provided  the  expertise  to  get  a full-scale  airframe  fatigue  test  off  to 
a good  start  on  the  first  try.  Mr.  B.  C.  Boggs  was  Technical  Manager  of 
the  Test  Facility  Group,  which  had  primary  responsibility  for  this 
task/work  unit. 
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SECTION  I 
INTRODUCTION 

This  report  documents  Phase  2 of  a continuing  effort  to  simplify 
test  methods  and  equipment  for  full-scale  airframe  fatigue  tests 
specifically  in  the  areas  of  function  generation  and  electro-hydraulic 
load  control.  Function  generation  is  presently  accomplished  with  a 
wide  variety  of  analog  and  digital  devices.  Load  control  is  achieved 
with  analog  servo  loops  (one  per  load  area)  which  match  the  program 
(reference)  value  with  a feedback  signal  furnished  by  load  cells  to 
regulate  the  flow  of  high-pressure  hydraulic  fluid  to  the  loading  jacks. 

The  effort  was  initiated  to  investigate  direct-digital  load  control 
techniques  as  a cost  effective  means  of  improving  and  simplifying  test 
methods  for  closed-loop  electro-hydraulic  load  application  and  as  a 
possible  means  of  realizing  increased  hardware  reliability. 

Technical  Memorandum  AFFDL-TM-75-89  describes  Phase  1 of  this  work 
effort  to  develop  a multi-channel  load  control  system  suitable  for 
airframe  fatigue  testing.  Phase  1 goals  were  to  (a)  investigate 
programming  languages  considered  standard  in  the  software  industry  that 
were  easy  to  use  and  highly  interactive  and  compatible  for  load  control 
application,  and  (b)  demonstrate  feasibility  of  a multi-channel  direct- 
digital  load  control  system. 

During  Phase  1,  control  algorithms  were  written  successively  in 
assembly  language,  FOCAL  and  BASIC.  Each  of  the  software  packages 
were  tested  for  performance  characteristics  on  a four-channel  test  stand. 
Phase  1 concluded  with  a feasibility  demonstration  using  an  F-lll  wing 
as  the  test  article.  The  load  spectrum  was  of  the  constant-amplitude 
repeat-cycle  type.  Load  application  was  by  means  of  13  hydraulic  jacks 
arranged  to  load  in  tension  only.  The  feasibility  demonstration  was 
accomplished  with  a single  minicomputer  performing  all  necessary  tasks, 
i.e.,  functioning  as  a digital  servo  controller  for  thirteen  channels, 
generating  the  load  spectrum  for  thirteen  channels,  and  maintaining  an 
interactive  relationship  with  the  operator  for  on-line  changes 
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to  control  parameters.  Provisions  were  included  for  generation  of 
calibration  voltages,  ramps  and  sine  waves  as  well  as  jogging  of  the 
jacks  to  facilitate  test  setup.  Single-user  BASIC  was  used  for  this 
demonstration  because  it  offered  the  on-line  interactive  capability 
considered  a necessity  in  a test  facility  environment. 

Two  problems  were  noted  during  Phase  1,  (a)  BASIC  was  too  slow  to 
provide  the  sampling  times  necessary  for  a digital  servo  loop  because  of 
its  inherent  interpretive  structure,  and  (b)  the  digital  controller 
performance  needed  improvement. 

Phase  2 efforts  were  directed  toward  continuing  the  development  of 
a multi-channel  digital  load  control  system  capable  of  performing  flight- 
by- flight  aircraft  fatigue  testing. 

The  characteristics  of  a continuous  analog  Proportional  plus 
Integral  (PI)  controller  were  selected  for  approximation  by  the  digital 
system.  The  PI  controller  was  chosen  as  the  model  because  it  is  the  type 
most  commonly  used  in  the  Structures  Test  Facility. 

The  digital  controller  equations  and  the  general  range  of  parameters 
over  which  they  should  be  expected  to  apply  are  described  in  Section  II 
of  this  report.  Appendix  D contains  the  derivation  of  these  equations 
from  the  differential  equation  describing  an  analog  (continuous)  PI 
controller. 

A methodology  for  determining  "gains"  of  the  digital  controller 
based  on  the  performance  of  its  continuous  analog  model  is  described  in 
Section  III. 

The  flow  chart  of  the  basic  controller  software  implementation  is 
described  in  Section  IV.  Sections  V and  VI  deal  with  experimental 
evaluation  of  the  digital  controller  on  a test  stand,  and  Section  VII 
describes  its  deployment  on  a full-scale  test  program  after  successful 
completion  of  the  test  stand  experiments. 
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All  main  computer  programs  In  this  study  were  written  In  FORTRAN  IV 
(Section  VII).  This  provided  the  digital  controller  algorithm  a period 
of  10  milliseconds.  This  was  adequate  to  provide  the  controller 
performance  described  in  Sections  II,  III,  IV  and  V. 

Two  minicomputers  were  used  in  Phase  2 in  a master/slave  configuration 
in  order  to  separate  the  digital  control  algorithm  from  load  spectrum 
generation  and  other  miscellaneous  tasks.  This  allowed  maximum  possible 
sampling  speeds  and  independence  of  computing  loads  imposed  by  other 
test  requirements. 
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SECTION  II 

DIGITAL  LOAD  CONTROLLER  DESIGN 

This  section  describes  the  derivation  of  a digital  load  controller 
from  a continuous  proportional -integral  model. 


MODEL 

A functional  block  diagram  of  a single  channel  of  the  Direct  Digital 
Load  Control  (DDC)  servo  loop  is  presented  in  Figure  1.  Nomenclature  is 
defined  on  the  figure  and  the  relation  to  variables  on  the  DDC  console  is 
shown. 


A continuous  model  that  approximates  the  low-frequency  behavior  of 
the  system  is  depicted  in  Figure  2.  The  hydraulic  jack  provides  a load 
rate  proportional  to  drive  signal  when  loop  operation  is  limited  to 
frequencies  below  its  bandwidth  (50-100  Hz).  The  gain  relating  hydraulic 
jack  drive  to  load  rate  is  denoted  by  [ft/counts^  (Counts  corresponds 
to  the  numerical  input  into  the  digital-to-analog  converter  driving  the 
servovalve;  e.g.,  ± 4096  counts  = +.  10  Vdc  output.)  The  force  applied 
by  the  hydraulic  jacks  is  roughly  proportional  to  load  displacement 
provided  that  loop  operation  is  well  below  structural  resonant  frequencies. 
The  associated  "spring"  constant  is  «L  [c0^ts ] . The  product 
KaKl  = K [sec-1],  defined  as  the  open-loop  sensitivity,  is  independent 
of  drive  and  is  required  to  determine  approximate  gain  settings.  This 
product  can  be  estimated  as:  SLOPE  OF  OUTPUT  OF  LOAD  CELL  [COUNTS  PER 
SEC]  t STEADY  HYDRAULIC  JACK  DRIVE  [COUNTS.] 


A PI  controller  is  used  with  proportional  and  integral  gains  Kp 
(dimensionless)  and  Kj  (1/sec).  This  type  of  analog  controller  is 
currently  in  facility  use  on  full  scale  multichannel  airframe  fatigue 
tests.  For  DDC,  this  controller  is  implemented  with  a digital  PI 
controller  with  integration  performed  using  the  trapezoidal  rule 
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(Tustin  Approximation  - See  Appendix  D).  The  controller  algorithm 
developed  by  Darcy^  is: 

M(tk)  = x(tk)  + ae(tk) 

X(TK+1}  = X(TK}  + BE(V 

tk+1  -Tk  = T [sec] 

The  sample  rate,  1/T,  should  be  substantially  (e.g.,  six  times)  higher 
than  all  frequencies  of  interest.  The  digital  gains  A and  B are  related 
to  the  analog  gains  Kp  and  through: 

A = Kp  + Ki  T/2 
B = TK. 

The  continuous  model  is  used  to  select  analog  gains  from  desired  speed  of 
response  and  peak  overshoot.  The  corresponding  digital  gains  are  then 
obtained  from  the  relations  above. 

The  model  depicted  in  Figure  2 as  described  in  the  preceding 
paragraphs  applies  when 

KpK  and  yjK.K  [sec-1  ]«bandwidth  of  low  pass  filter 

1 in  feedback  loop  (see  Figure  1) 

bandwidth  of  actuators  [rad/sec] 
structural  resonance 

Low-frequency  operation  means  the  frequencies  in  the  reference  load 
satisfy  the  same  restriction  as  KpK  and  y[KJ. 


Capt  Vince  Darcey,  Flight  Control  Division,  AFFDL 
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SECTION  III 

DIGITAL  CONTROLLER  GAIN  DETERMINATION 


The  response  of  the  PI  analog  model  to  step  inputs  is  analyzed 
and  used  as  a basis  for  selecting  controller  gains.  From  Figure  2,  the 
closed-loop  transfer  function  which  describes  the  low- frequence 
operation  is: 


K(KpS  + K.) 

S2  + KKp  S + KK. 


2iV  * “n2 

~7  7 

S + 2£u)nS  + 


(1) 


with  undamped  natural  frequency  and  damping  ratio 

wn  = Viu<  (1/sec) 

kJT 

r = P \ 

W*i 


(2) 

(3) 


Formulas  for  the  theoretical,  time  to  peak,  t , and  percent  overshoot, 
* P 

Mp,  when  the  system  is  forced  by  a step  input  are  given  below: 

Case  1 (underdamped,  £<1 


Time  to  peak 


t = + 
P 


2tan_1  ( ^l-c2) 

A 


O) 


V.l-C2 


sec 


(4) 


Percent  Overshoot 


M = exp  [-£2tan  ( ^1-c2)  / 1-c2]  = exp  [-cu  t ]x  100=%  Overshoot  (5) 

r ^ r 


2 

Reference  Linear  Control  System  Analysis  and  Design,  Dazzo  and  Houpis, 
McGraw  and  Hill,  1975. 
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Case  2 (overdamped,  c>l 


Time  to  Peak 


l 


Percent  Overshoot 


= exp(-?a)ntp)  x 1 


00  = % Overshoot 


(7) 


Graphs  relating  normalized  time-to-peak  and  percent  peak  overshoot  are 
presented  in  Figures  3 and  4.  The  graphs  show  that  overshoot  is  modest 
(less  than  20  percent)  for  c > .75.  Fatigue  testing  demands  minimum 
overshoot  which  was  limited  to  5 percent  for  the  Advanced  Metallic  Air 
Vehicle  Wing  Carry  Through  Structure.  The  acceleration  error  coefficient 
is  proportional  to  K^  so  steady  state  tracking  error  is  minimized  by 
increasing  K..  Also  for  fixed  Kp  and  K the  time-to-peak  [sec]  decreases 
with  increasing  provided  that  c < 2.2.  Thus,  the  largest  K..  consistent 
with  acceptable  damping  is  recommended. 


GAIN  SETTINGS 
V 

A suggested  procedure  for  determining  gain  settings  is: 

1.  ^Determine  K 


2.  With  K.  = 0;  increase  Kp  until  either  instability  occurs  or 

K 

Kp  K ~ 3db  frequency  of  hydraulic  jack  (Hz).  Set  Kp  = (critical) 


2 2 

3.  Set  K.  = Kp  K/4c  (results  in  a reasonable  approximation) 


♦Either  determine  the  slope  of  load  vs.  time  in  open  loop  operation  or 
measure  percent  overshoot  for  a closed  loop  operation  and  use  the  graph 
(Figure  3)  to  determine  the  corresponding  5.  Then  K = 4Kj  2/Kp2. 
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Figure  3.  Damping  Ratio  vs.  Time  to  Peak 
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Figure  4.  Damping  Ratio  vs.  Peak  Overshoot 
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4.  Select  T < 1/6  of  frequency  spectrum  of  reference  signal 

5.  Set  Digital  Gains 

A = kp  + .5  K.T 
B = K..T 

The  intent  is  to  itfake  Kp  as  large  as  possible  within  the  validity  of  the 
model  so  that  K^  can  be  made  large  to  improve  steady-state  tracking  and 
speed  of  response  while  maintaining  acceptable  stability  margin  (overshoot). 


► 
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SECTION  IV 

DIGITAL  LOAD  CONTROLLER  SOFTWARE  IMPLEMENTATION 

The  flowchart  for  the  software  module  to  be  called  in  turn  for  each 
Jth  channel  controller  is  shown  below: 

START 

Fetch  Aj  and  X^  (t^) 

Fetch  Rj  (t^)  From  Master 

Read  (Sample)  C^  (tk) 

Compute  E.  (tk)  = R.  (tk)  - C.  (tk) 

Compute  Mj  (tk)  = Xj  (tR)  + Aj  E.  (tk) 

Output  M.  (t.  ) 

J K 

Fetch  Bj  (tk) 

Compute  Xj  (tk+l)  * X^  (tR)  + E.  (tR) 

Store  Xj  (tk  + 1 ) in  X (tk) 

RETURN 


The  intent  of  the  module  design  is  to  minimize  the  computational 
transmission  time  delay  by  performing  the  minimum  number  of  computations 
and  operations  between  the  time  jth  load  cell  is  sampled,  C^  (tk), 
and  the  time  the  resulting  command,  M^  (tk ) , is  transmitted  to  the  jth 
hydraulic  jack  system  (only  the  jth  load  cell  is  sampled  during  the 
jth  iteration  of  the  loop). 

Computer  program  S.FOR  performs  the  above  algorithm  for  12  channels. 
S • FOR  is  located  in  the  slave  machine  of  the  master/slave  computer 
configuration.  The  program  listing  is  in  Appendix  A. 
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SECTION  V 

LOAD  CONTROLLER  EXPERIMENTAL  VERIFICATION 

l:  ; ' 

This  section  describes  experiments  performed  on  a test  stand  to 
verify  that  the  digital  controller  behaves  like  an  analog  second-order 
Proportional -Integral  controller  in  accordance  with  the  analysis  of 
Section  III.  The  verification  was  done  by  determining  the  peak  overshoot 
levels  and  settling  times  of  the  digital  controller  and  comparing  them 
to  the  analytical  predictions  of  Section  III. 

The  first  assumption  that  overall  test  stand  gain  K (1/sec) 
approximates  the  product  and  is  independent  of  the  drive  signal 
(reference  Section  II)  was  verified  with  12  open-loop  runs.  A strip 
chart  recording  of  a typical  run  is  shown  in  Figure  5.  The  product 
KaKl  = K is  approximated  by  the  slope  of  output  of  load  cell 
(counts/sec.)  divided  by  steady  hydraulic  jack  drive  (counts).  For 
example,  for  Run  5 in  Figure  5 a chart  speed  of  125mm/sec,  a vertical 
chart  scale  of  400  counts/mm  and  a steady  drive  of  8000  counts  (10  volts) 
produced  a gain  K = 3.2689  25mm/sec°UntS^1 ° * ®000  counts]. 

Table  1 lists  the  results  of  the  12  runs. 

The  next  set  of  experiments  were  made  with  proportional  control 
only.  Strip  chart  recordings  of  runs  8,  9,  10  and  11  are  shown  in 
Figure  6.  Instability  and  overload  trip  occurs  at  A=2  (A  is  the  digital 
equivalent  of  analog  Kp  when  B = 0).  The  non-zero  steady-state  errors 
proportional  to  1/A  and  tendency  towards  instability*  for  increasing  A 
are  characteristic  for  an  analog  proportional  controller. 


*A  notch  filter  centered  in  the  lowest  measured  resonance  frequency 
extended  the  region  of  stability  for  the  proportional  controller.  For 
notch  filter  design,  see  Section  VI. 
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Figure  5.  Open-Loop  Gain  K of  Test  Stand 

) ' 
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TABLE  1 
OPEN-LOOP  K 


RUN 

DRIVE  SIGNAL 

K 

^Saturated 

1 

8000  (10  volts) 

3.26 

2 

8000 

Aborted 

3 

8000 

3.32 

1.25 

4 

8000 

3.125 

1.28 

5 

8000 

3.38 

1.62 

6 

8000 

3.47 

1.56 

7 

4000  (5  volts) 

3.89 

8 

4000  (5  volts) 

3.75 

9 

4000  (5  volts) 

3.75 

10 

1 

2000  (2.5  volts) 

3.448 

11 

2000  (2.5  volts) 

3.28 

12 

2000  (2.5  volts) 

3.23 

Determination  of  Open-Loop  K = Kactuator  x ^load 
[Output  Counts/sec  -r  Drive  Counts] 

Kavg  = 3.43  (1/sec) 
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Figure  6.  Overload  Dump 
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The  first  behavior  is  predicted  by  the  model  with  a bias  on  the 
actuator  drive,  i .e. , 


REF  ^ 

Kp 

XAS  . 

K 

S 

C 


The  steady-state  response  of  this  system  to  a constant  is  Y$s  = Ref  + 
Bias/Kp.  The  second  behavior  is  consistent  with  unmodelled  structural 
resonances,  e.q.. 


This  system  is  unstable  for  large  gain  (see  root  locus) 


The  third  set  of  experiments  with  the  digital  controller  were  made 
with  both  proportional  and  integral  gains  in  effect.  Strip  chart 
recordings  of  the  controller  response  to  a step  input  are  shown  in 
Figure  7.  The  typical  characteristics  of  a second-order  analog 
proportional -integral  controller,  i.e.  (1)  zero  steady-state  error, 

(2)  decreasing  settling  time  with  increasing  Kj,  (3)  increasing  overshoot 
for  increasing  Kj  are  clearly  apparent  in  the  controller  response  curves. 
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Figure  7.  Controller  Response  to  Step  Input 
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The  zero  steady-state  error  is  consistent  with  the  model  even  with 
the  bias,  i .e. : 


REF  ^ 

KpS  + Kj 

i? 

K 

7 

S 

) 

S 

The  response  of  this  system  is 


Y(s)  = 


K(K  S+K.)  Ref(s)  SK  Bias(s) 


P 1 


S +K( KpS+K^ ) 


S +K(KpS+Ki) 


so  a constant  reference  and  bias  leads  to 


Yss  = Ref  + 0 (no  error) 

The  decreasing  settling  time  and  increasing  overshoot  with  increasing 
K..  is  consistent  with  the  analytic  description  as  previously  discussed. 


The  quantitative  correlation  between  the  theoretical  analysis 
presented  in  Section  II  and  experiments  in  this  section  was  verified  in 
the  following  manner. 

The  peak  overshoots  (Mp)  shown  in  Figure  7 were  applied  to  the 
plot  of  peak  overshoot  (Mp)  vs.  damping  ratio  (zeta)  (Figure  4)  developed 
analytically  in  Section  III  to  obtain  zeta  for  each  condition.  The 
theoretical  open-loop  sensitivity  K was  then  computed  using  the 
relationships: 


Kp  = A - B/2 
Ki  = B/t 
K = 4s2  KI/Kp2 


20 


AFFDL-TR- 79-301 1 


The  results  of  this  computation  are  shown  in  Table  2 in  comparison 
with  the  experimentally  determined  K described  in  the  first  part  of 
this  section. 

These  were  not  closely  controlled  experiments.  However,  the 
correlation  is  close  enough  to  verify  that  the  assumptions  and 
approximations  made  in  Sections  II  and  III  and  the  software  implementation 
of  the  Digital  Proportional -Integral  controller.  Section  IV,  are  valid. 


TABLE  2 
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SECTION  VI 

RESONANCE  CONTROL  WITH  NOTCH  FILTERS 

Unexpected  vibrations  and  instabilities  in  the  three  channel  test 
stand  led  to  the  insertion  of  notch  filters(3)  in  the  output  of  the 
digital  simulator  as  a means  of  suppressing  resonant  frequencies  inherent 
in  the  simulated  structure.  See  Figure  12. 

Two  notch  filter  designs  (Figures  8,  9,  10  and  11)  were  considered. 
The  notch  filter  of  Figure  8 was  implemented,  because  of  simpler 
construction,  and  proved  very  effective  in  controlling  structure  resonance 
for  single  channels.  Fifty  percent  higher  gain  settings  and  ten  times 
the  integration  rate  were  possible  with  the  notch  filter  in  the  circuit. 

The  interactions  resulting  from  multi-channel  notch  filters  were 
not  fully  understood  or  investigated. 

The  full-scale  wing-carry-through  structure  fatigue  test  was 
operated  without  notch  filters  in  the  control  loop. 


(3) 


Design  by  Capt  Peter  Miller,  E.E.  Dept., 


AFIT. 
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R,*  220  M 
R2=  6.8  KJl 
C|=l.8^ 

C2=  .1  ft 

Hy  I kJl 


WO  = 


/RjR2C|C2 


GAIN  NOTCH 


I 4-  C | / C2 

] + C|  / C2  * R| /R2 


Figure  8.  Notch  Filter  A 
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Figure  9.  Frequency  Response  of  Notch  Filter 
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Guaranteed  30  dB  rejection  with  10%  capacitor 


Note:  A small  dc  bias  current  must  exist  at  the  input  terminal 
i.e.,  do  not  couple  capacitively). 


*R3  = 6^  + R2);  k = 


fQ  (notch  frequency)  = 


3R^R^ 


Note:  3dB  bandwidth  = 


2(l-k)  (R!  + R2^ 

Possible:  C = .27yF 

= 4.7kft 
Rc  = 75kft 
R_  = 20kft  pot. 

D 

R3  = 620kft 

Hatch  range:  7.9  to  17  Hz 

Figure  10.  Notch  Filter  B 


R = 500ft  pot. 
o 

Re  = 2.2kft 
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Figure  11.  Frequency  Response  of  Notch  Filter  B 
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Figure  12.  Effect  of  Notch  Filter 
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SECTION  VII 

APPLICATION  TO  FULL-SCALE  TESTING 

This  section  describes  the  successful  application  of  the  digital 
control  system  to  a full-scale  multichannel  airframe  fatigue  test 
(Advanced  Metallic  Air  Vehicle  Structure  wing  carry  through  structure). 

This  system  was  substituted  for  conventional*  analog  controllers  during 
the  fourth  lifetime  of  an  established  fatigue  test.  The  new  system  was 
required  to  match  all  the  existing  functional  and  hardware  interfaces 
for  load  generation,  program  check,  load  check,  and  start-up  and  shut- 
down systems. 

The  actual  transition  from  one  system  to  another  (digital  controller 
vs.  analog  controller)  consisted  of  switching  minicomputer  programs  and 
the  input  plugs  to  the  servo-val ves. 

Appendix  E,  Part  4,  is  a strip  chart  for  a section  of  the  continuously 
varying  load  profile  applied  to  the  AMAVS  test  structure  on  eleven 
channels. 

Noise  would  appear  intermittently  on  some  channels.  These  were 
caused  by  a variety  of  mechanical  malfunctions  considered  common  in 
large  scale  fatigue  tests,  e.g.,  structural  resonances,  servo-valve 
characteristic  changes,  or  over  adjustment  of  gain  controls.  The 
interaction  between  the  DDC  and  dead  weight  control  systems  would 
sometimes  cause  problems.  Cycling  speeds  at  the  conclusion  of  the  test 
were  approximately  the  same  as  under  analog  control.  At  no  time  were 
peak  overshoots  allowed  to  exceed  five  percent  of  applied  loads  on  most 
channels  and  ten  percent  on  two  of  the  eleven  channels.  The  best 
performance  of  the  digital  controllers  was  not  as  good  as  the  analog 
controllers,  but  this  is  attributed  to  the  lack  of  experience  in  setting 
up  large  systems  and  reluctance  to  experiment  with  the  control  system 
on  an  expensive  test  article. 

The  results  of  this  application  were  better  than  expected  and  are 
the  basis  for  continuing  work  in  this  area. 
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The  balance  of  this  section  is  a detailed  description  of  hardware 
and  software  used  to  implement  DDC  on  the  AMAVS  fatigue  test. 

HARDWARE 

An  overview  of  the  AMAVS  fatigue  test  operating  system  is  presented 
in  Figure  13.  In  the  arrangement  shown,  the  slave  minicomputer  is 
dedicated  to  the  task  of  functioning  as  multichannel  digital  proportional- 
integral  controller. 

The  master  minicomputer  generates  the  load  spectrum,  transmits 
reference  valves  to  the  slave  via  high-speed  link,  and  satisfies 
background  requests  to  control  test  operation  and  display  systems. 

This  arrangement  permits  the  slave  to  operate  at  the  fastest  possible 
sampling  speeds,  while  preventing  inadvertent  shifts  in  sampling  times 
by  modifications  to  the  function  generating  program  or  other  program 
changes  imposed  by  safety  or  test  operating  personnel. 

The  master  minicomputer  is  equipped  with  28K,  16-Bit  word  core 
memory,  with  1.2  microseconds  cycle  time  and  an  auxiliary  1.2-million-word 
disk  memory  system.  The  master  communicates  with  the  slave  via  a 
500,000  words- per  .second  direct-memory  access  link.  Other  peripherals 
are  a digital  link  with  an  independent  minicomputer  which  verifies  the 
program  levels  being  output  by  the  master  minicomputer  and  12  digital-to- 
analog  converters  to  furnish  reference  loads  to  an  analog  redundant 
overload  dump  system.  An  alphanumeric  Cathode  Ray  Terminal  (CRT)  display 
and  keyboard  provide  operator  communication  with  the  system. 

The  Slave  minicomputer  is  similar  to  the  Master,  but  had  16K  word 
core  memory.  Reference  values  for  closed  loop  control  were  furnished  to 
the  Slave  by  the  Master  via  link.  Feedback  values  obtained  from  load 
cells  were  collected  by  a 64-channel  low-level  signal  acquisition  and 
multiplexing  system  (RTP).  Conversion  frequency  is  19KHz.  Individual 
channel  signal  conditioners  and  preamps  provide  a continuously  adjustable 
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Figure  13.  Overview  of  AMAVS  Minicomputer  Systems 
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gain  of  1 to  1000.  Low  pass  input  filters  are  provided.  Voltage  output 
of  the  digital  to  analog  converters  was  matched  to  servovalve  operating 
current  requirements  through  servovalve  drivers  (Appendix  B). 

The  Slave  outputs  control  voltages  to  the  servovalve  drivers  through 
a 32-channel  digital-to-analog  converter.  The  digital-to-analog 
converters  are  capable  of  outputting  + 10  volts  and  10  milliamps  with  a 
resolution  of  approximately  20  millivolts/bit.  In  addition  to  the  D/A's 
there  were  32  contact  position  sensors  and  the  provision  to  output  two 
16-bit  digital  words  (Appendix  B). 

External  dither  was  not  used  and  did  not  appear  necessary.  Digital 
control  is  inherently  discontinuous  and  may  provide  sufficient  built-in 
dither  to  keep  servovalves  free. 

Both  Master  and  Slave  were  equipped  with  hardware  for  performing 
floating  point  arithmetic.  The  DDC  algorithms  and  other  test  supporting 
computer  programs  are  based  on  Digital  Equipment  Corp.  real  time 
operating  system  (RT-11 FB-V02C-02) . Computer  programs  were  written  in 
FORTRAN  IV.  All  peripheral  handlers  were  written  in  assembly  language 
for  speed  and  efficiency.  Block  Diagram  (Figure  14)  shows  the  computer 
programs  and  their  respective  areas  of  residence.  Figure  15  shows  the 
functional  relationship  between  the  Master  and  Slave  minicomputers. 

The  console  operator  has  the  following  functions  available: 

U Disk  read  or  write 

R Read  Slave  common  table 

W Write  to  Slave  common  table 
G Start  a job 

L Look  at  a variable 

M Modify  variable  just  looked  at 
D Display  foreground  common  table 
P Potentiometer  control  mode 
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Figure  14.  Master-Slave  FORTRAN  Calls 


MASTER 
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Figure  15.  Master-Slave  Job  Assignments 
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Z Zero  integrators  (B's);  follow  with  W 

K Kill  program  (ramp  to  zero) 

H Hold  in  present  position 

@ Ramp  to  reference 

DDC  TV  monitor  layout  is  shown  in  Figure  16.  Printout  of  common 
table  between  the  minicomputers  is  shown  in  Figure  17. 

A digital  computer  is  inherently  capable  of  manipulating  a much 
greater  type  and  variety  of  information  than  its  analog  counterpart. 

The  format  for  presentation  on  its  CRT  display  can  be  varied  rather 
flexibly  with  FORTRAN  format  statements.  The  format  shown  in  Figure  16 
was  selected  as  the  most  useful  for  this  application. 

Meaning  of  code  appearing  in  Status  1 and  Status  2 columns  are 
shown  in  Tables  3 and  4. 

Flow  charts  for  Master  Programs  FA. FOR  and  BA. FOR,  and  Slave 
Program  S.FOR  are  given  in  the  following  pages.  The  complete  program 
listings  are  included  in  Appendix  A. 
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Figure  16.  DDC  Instrument  Panel 
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TABLE  3 

INSTRUMENT  PANEL  CODE  FOR  STATUS  I 


CHANNEL  CODE 

10  0 

1 
2 
3 

11  0 

1 
2 
3 
-1 
-2 

12  1 

2 

3 

4 

5 

6 


MEANING 

Run  with  checkmini 
Bypass  checkmini 


Hold  load  level 

Run  AMAVS  load  spectrum 

Ramp  to  reference  loads  (effective  when  not  running  AMAVS) 
Pot  control  (structure  loads  follow  pot  setting) 

Consol  kill  (ramp  loads  to  zero) 

Hydraulic  dump 

Transmit  to  Slave 

Receive  from  Slave 

Transmit  to  disk 

Receive  from  disk 

Transmit  In,  lout,  IR  to  Slave 

Receive  In,  lout,  IR  from  Slave 
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TABLE  4 

INSTRUMENT  PANEL  CODE  FOR  STATUS  2 


CHANNEL  MEANING 


1 

2 

3 

4 

5 

6 


7 

8 


9 

10 


11 

12 


Current  mission 

Next  load  level  - Program  is  now  ramping  to  this 
level  and  cycle 

Next  cycle 

New  mission  These  locations  are  normally  zero. 

They  are  loaded  with  current 
New  level  mission  level  cycle  on  a kill  or 

dump  and  saved  on  disk.  On 
New  cycle  restarting,  the  values  are 

transferred  to  Channels  1,  2,  3 and 
4,  5,  6 again  become  zeros 

Next  mission  limit  (1280  Max.) 

Total  No.  points  in  a ramp  are  divided  by  this 

constant  to  control  ramp  slope 

Hold  time  (Nx60)  (N  = seconds) 

Ramps  with  more  points  than  this  number 

may  run  at  a different  speed 

Multiplier  to  use  with  above 

No.  of  points  used  with  @ command  to  ramp  to  levels 
in  @ Jref  column 
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SOFTWARE 


FA.  FOR  (ARCHITECTURE) 


FLOW  CHARTS  FOR  THE  MAIN  ROUTINE  FUNCTIONS  AND 
SUBROUTINES  FOLLOW: 
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FA.  FOR  (FLOW  CHART) 


DECLARE  COMMON  AREAS,  LOCAL  ARRAYS 

INITIALIZE  LOCAL  ARRAYS 

I 

INITIALIZE  RT-11  AND  QSETS 
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FUNCTION  AMAVS 


DECLARE  COMMON  AREAS 


I 


DECLARE  EQUIVALENCES 


I 


SET  OPTIONAL  TRACE 


INITIALIZE: 

KRAMP 

(RAMP  DIVISOR  CONSTANT) 

KHOLD 

(PLATEAU  HOLD  TIME) 

NEWMAX 

(FINAL  MISSION  NUMBER) 

KBREAK 

(BREAKPOINT  FOR  LONG  RAMPS) 

KNOLIN 

(MULTIPLIER  FOR  ABOVE) 

IMISO 

(INITIAL  MISSION  NUMBER) 

IOLD  = 

1 (INITIAL  LAST  POINT  = FIRST  POINT 

I 


ADMIT  PARTIAL  AIR  PRESSURE 

I 


SEND  PROG. 

CHECK  MINI  A <f> 

— ^ NO  / 

<TT> 


RETURN] 


YES 


r 


START  FUNCTION  GENERATION 
SET  MISSION  COUNTER 
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1 


PRESSURIZE  FUSELAGE 

* 


SET  LEVEL  COUNTER 

~~  I ' 


READ  CYCLE  NO.  TABLE  (N) 


I 


IS  THIS  A NORMAL  CYCLE  (N70)  ? 

IS  THIS  A EVERY  1 OTH  CYCLE  (N=-l)  ? 
IS  THIS  A EVERY  TOOTH  CYCLE  (N«-2)  ? 


NORMAL  | TOTH  | TOOTH 


I 


INITIALIZE  CYCLE  COUNTER  N = T 


(5>  

f I CALCULATE  # STEPS  IN  RAMP  (i  KRAMP)  I 

T 


/no.  ramp  pointsX 

\ > KBREAK  / 


YES 


l 


MULTIPLY  # STEPS  X KNOLIN 


< 


ANY  BACKGROUND 
REQUESTS  ? 

1 

NO 

I 


-YES 


CONTINUING  PROGRAM  OR 

SEARCHING  FOR  NEW  START, 
POINT  ? 


NEW 

w 

POINT 


jcc 

© 


CONTINUING 


TOTH/TOOTH 


t 


t 
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ABORT  RETURN  AND  SET-UP 
FOR  RESTART 


NEWMIS  » IMIS 
NEWLEV  = I LEV 
NEMCYC  = I CYC 

SET  PROGRAM  IN  HOLD  CONDITION 
SET  LINK  IN  NO  TRANSFER  STATE 
ZERO  TEMPX'S  (INTEGRATOR  ACCUMULATORS) 


I 


SAVE  INFO.  ON  DISK 


I 


RAMP  REFERENCES  TO  ZERO 

"•  i 


CLEAR  CHECKMINI  BUFFER 
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FUNCTION  ISPECL  (IVAR) 
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FUNCTION  IRAMP  (NEW,  NUM,  ABORT) 
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SUBROUTINE  IHOLD  (ITICK) 
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— NO 


FUNCTION  IDATA  (LEV,  IREFS) 


DECLARE  COMMON  AREAS 

l 

OPTIONAL  TRACE  FEECHURS 

1 

INITIALIZE 

IDATA  = 0 

IS  DATA  TO  BE 

BYPASSED  ? 

hj 

1 NO  (ISTATI(IO) 

SEND  LEVEL  TO  CHECKMINI 

* ( ISTATI ( 1 0)  - 1 


1 


< 


I 


KILL  REQUEST 


•YES 


i 

NO 

WAIT  1 TIK 

READ  CHECKMINI  ACKNOWLEDGEMENT 

1 

YES 


ZERO  CHECKMINI  BUFFER 

< 


KILL  REQUEST 


NO 


© 
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FUNCTION  I DATA  (CONTINUED) 
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FUNCTION  ICHECK 
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SUBROUTINE  IAIR  (I) 
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FUNCTION  I POT 
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FUNCTION  I POT  (CONTINUED) 
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BA.  FOR 
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S.  FOR  (FLOW  CHART) 


START  DDC  CODE 


58 


AFFDL-TR-  79—301 1 


S.  FOR  (CONTINUED) 
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FUNCTION  IWAIT  (PART  OF  S.  FOR) 


DECLARE  COMMON  AREAS 


I 


READ  DIGITAL  INPUT 

CHANNELS  1 , AND  2 

. ' j 

L 

OUTPUT  DIGITAL 

WORDS  I , AND  2 

I 


RESET  IWAIT  = 0 

1 

SEND  TABLE 

TO  MASTER 

I 


COUNT  DOWN  DDC/FUNC,  GEN  RATIO 


I 


COUNTER  4> 
I YES 


RELOAD  COUNTER  FROM  ISTAT(8) 


I 


RECEIVE  TABLE  FROM  MASTER 


I 


YES 


READ  CLOCK 

< ■* ; > 


NO 


© 
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FUNCTION  IWAIT  S.  FOR  (CONTINUED) 
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SECTION  VIII 
CONCLUSIONS 

This  work  effort  was  initiated  to  investigate  use  of  digital 
techniques  as  a cost  effective  means  of  improving  and  simplifying  test 
supporting  systems  for  closed-loop  electro-hydraulic  load  control,  with 
an  increase  in  hardware  reliability. 

Results  of  this  study  show  that: 

(1)  The  digital  load  controller  used  in  this  study  displays  the 
typical  characteristics  of  a second-order  continuous  controller  with  peak 
overshoot  and  settling  time  as  functions  of  damping  ratio. 

(2)  The  digital  controller  satisfied  the  load  control  requirements 
usually  provided  by  analog  PI  controllers  in  large  scale  multi-channel 
fatigue  tests. 

(3)  The  controller  algorithm  is  simple,  with  two  on-line  computations 
per  channel  (Ref.  Section  IV  and  Appendix  A).  There  are  no  mathematical 
terms  for  the  effects  of  adjacent  channels,  that  is,  each  controller 
channel  is  responsible  for  its  own  load. 

(4)  The  above  assumptions  hold  true  for  servo-valve  actuators  with 
a frequency  response  below  100  Hz  (the  type  used  in  the  Structures  Test 
Facility  at  WPAFB,  Ohio). 

(5)  Structural  resonances  may  be  controlled  with  simple  notch 
filters,  as  demonstrated  on  the  test  stand. 

(6)  The  digital  system  is  inherently  capable  of  manipulating  a 
much  greater  type  and  variety  of  test  information  than  its  analog 
counterpart  with  flexible  formats  of  presentation  on  its  cathode  ray 
terminal  display  systems. 


62 


AFFDL-TR- 7 9- 301 1 


(7)  Standard  programming  languages  such  as  FORTRAN  are  adequate 
for  this  type  application  with  a few  programmer-defined  calls  for  non- 
standard peripherals. 

(8)  A general  purpose  minicomputer  or  microprocessor  may  be  used 
for  digital  load  control,  thus  reducing  the  special  purpose  equipment 
required  for  fatigue  test  support. 

(9)  Reliability  of  digital  systems  can  be  high.  Failures  in  the 
DDC  machine  (slave  minicomputer)  accounted  for  a total  of  19  hours  down- 
time for  the  period  1 July  1976  through  1 July  1977.  Much  higher  failure 
caused  down-time  was  experienced  with  associated  equipment  and  peripheral 
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SECTION  IX 
RECOMMENDATIONS 

It  is  recommended  that  experimental  work  in  digital  controls  be 
extended  towards  (1)  refinements  in  control  algorithms,  interactive 
controls  and  displays  and  (2)  development  of  large-scale  (100-200  channel 
capacity)  systems. 
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APPENDIX  A 

COMPUTER  PROGRAM  LISTINGS 


COMPUTER  PROGRAM  LISTINGS 


TITLE  AND  DESCRIPTION  pftfiE 

ARCHITECTURE  66 


FA.  FOP 
BA.  FOR 
BLOCKB.  PRO 
BLOCKB.  FOR 
RMSGEN.  BAS 
T R B L E . FOR 
AMATBL.  FOR 
AMR V S3.  FOR 
S.  FOR 
S.  PRO 
SGEN  BAS 
IGSWR.  MAC 
I DIN.  MAC 
SL.  MAC 
ITTOUT. MAC 
IDQU7.  MAO 
: P r F . MAC 
LINKSL.  MAC 
Mi B KHZ.  MAC 
_ I M K R T M A 0 
I S 0' 2 A . MAC 
ICLK0.  MAC 
MCLK9  MAC- 
IN  I T R T . MAC 
I D2  A MAC 
"71.  MAC 

T 7 0 . MAC 
"AD  * A T 
S.  BftT 
- A BA" 

BA.  Sr  - 
•_  ; •,  r.  5 c,  - 


67 

77 

82 

83 

90 

92 

99 

108 

113 

117 

119 

120 
121 
122 

125 

126 
127 
129 
131 
133 
136 
138 

139 

140 

142 

143 

144 

145 
145 
145 

145 

146 
146 
146 
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FA.  FOR  (ARCHITECTURE) 


LISTINGS  FOLLOW. 


66 


oo^noo  OOO  O O OOOI-*OOOOI-*  o ooo  o o o o o 


AFFDL-TR-79-301 1 


Fft.  FOR  12-JAN-7? 

REFLECTS  RESCALED  BLOCKD. SCALE  FACTOR  IN  AMSGENM095 
FOREGROUND  PROGRAM  F MODIFIED  TO  SUPPORT  ONLV  AMAVS 
DECLARE  COMMON  AREAS  t LOCAL  RRRAVS  l.  INIT  LOCAL  ARRAVS 
COMMON  DEFINITIONS 
COMMON  I N * 2 ) » I 0 LI T ( 2 ) 

COMMON  I R* 12 ) , 10(12), 10(12) 

COMMON  R E * 1 2 ) , ALPHA(12), B E T A ( 1 2 ) , TEMPX(12) 

COMMON  I STATi < 12 ) , ISTAT2<12),  JREF(12) 

COMMON  MIN<12>,MAX<12),SL0PE*12),BINTER<12> 

COMMON  ICVCLE*28i>,  NPTS<281),  IREFdi,  281) 

EQUIVALENCE  < JRAMP,  I STAT2 ( 12  ) ) 

BEGIN  EXECUTABLE  CODE  SECTION 

INITIALIZATION 

IFLINITRTO.  NE.  0)STOP  ' I N I TRT  FAILURE' 

IF(IQSET(5).  NE.  0)STOP  ' QSET  FAILURE' 

LET  CONSOLE  OPERATOR  KNOW  FOREGROUND  ALIVE 
TVPE  100 

0 FORMAT*'  FOREGROUND  HAS  STARTED') 

BEGIN  MAINLINE  LOOP 

IF  ANV  SPECIAL  REQUESTS  FROM  BACKGROUND  DO  THEN  NOW 
IF<ISTAT1<12).NE.0)ISTAT1(12)=ISPECL(ISTAT1(12)) 


IF  SPECIAL  POT  MODE  SELECTED  THEN  CALL  POT  MODE 
I F < I STAT1 ( 11 ) . EQ.  2) I STAT1 ( 11 ) = I POT < ) 

CHECK  RAMP  CONSTANT  THEN  IF  RAMP  REQUESTED  DO  IT 
IFCJRAMP.  LE. 100) JRAMP=1000 

IF* 1ST ATI < 11).  EQ.  2) I ST ATI ( 11 ) = I RAMP ( JREF(l), JR AMP, 0) 


IF  A RUN  HAS  BEEN  REQUESTED  RUN  AMAVS 
IF(ISTAT1*11). EQ. 1)CALL  AMAVS 


OPTIONAL  TRACE  FEATURE  FOR  DEBUGGING 
ISTAT1(9)=ISTAT1(9).  OR. 2**0 

ALLOW  FOR  BACKGROUND  REATTACHMENT 
CALL  IPOKE* -400,  IADDR* I N * 1 ) ) ) 

C SLEEP  FOR  A BIT 

CALL  IHOLD*10) 

C 

C RETURN  FOR  NEXT  ITTE RATION 

GO  TO  10 
END 

C 

FUNCTION  AMAVS 
C COMMON  DEFINITIONS 

COMMON  I N ( 2 ) , I 0 U T * 2 ) 
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C 


( 6 ) ) 

(ID) 


COMMON  IRC  12),  ICC  12),  IOC  12) 

COMMON  REC12),  ALPHA  C 12),  BE  T fl  C 12),  TEMPXC12) 

COMMON  I S T ft  T 1 C 1 2 ) , I S T ft  T 2 C 1 2 ) , J R E F C 1 2 ) 

COMMON  M INC  12),  MRXC 12),  SLOPE  C 12),  B INTER  < 12) 

COMMON  ICVCLEC281), NPTSC281),  I REF C 11, 281) 

DIMENSION  IZER0C12) 

D fl  T ft  I 2 E R 0 / 1 2 * 0 / 

EQUIVALENCE  FOR  EASE  OF  UNDERSTANDING  CODE 

EQUIVALENCE  C I M I S,  I S T ft T2 C 1 ) ) , C I L E V,  I S T ft T 2 C 2 ) ) , C I C VC,  I S T AT 2 C 2 > ) 
EQUIVALENCE  CNEWMIS,  I S T ft  T 2 C 4 ) ) , CNEWLEV,  I S T ft  T 2 C 5 ) ) , CNEWCVC,  ISTAT2 

EQUIVALENCE  CNEWMAX,  I S T ft T 2 C 7 ) ) , CKRAMP,  I S T ft  T 2 C 8 ) ) 

EQUIVALENCE  C K HOL D,  I S Tft T 2 ( 9 ) ) , C KBR E ft K , I ST  ft T 2 C 1 0 ) ) , C K NO L I N , I 5 T ft T 2 


EQUIVALENCE  CJRfiMP, ISTAT2C12)) 


C 

C BEGIN  EXECUTABLE  CODE  FOR  fiMAVS  FUNCTION  GENERATION 


OPTIONAL  TRACE  FEATURE  FOR  DEBUGGING 
I S T ft  T 1 C 9 ) = I S T ft  T 1 C 9 ) . OR.  2**1 


INITIALIZATION 
NKM-6  RESET  DATA  BUFFER 
C INSURE  0CKRAMPO100 

IF  CKRflMP.  LE.  0.  OR.  KRftMP.  GT.  100)KRftMP=6 
C INSURE  KHOLD  > = 60  TICKS 

IFCKHOLD.  LT.  60)KHOLD=100 
C:  INSURE  NEWMIS<  = NEWMflXO1280  t >0 

IFCNEWMftX.  LT.  NEWMIS.  OR.  NEWMftX.  GT.  1280.  OR.  NEWMAX.  LE.  6 ) NEWMftX  = 12S0 
C INSURE  INITIAL  MISSION  WITHIN  RANGE 

IMIS0=NEWMIS 

IFCIMIS0.  LE.  0.  OR.  IMIS0.  GT.  12S0)IMIS8  = 1 
C CHECK  THAT  0 < B R E ft  K POINTC16000 

IFCKBREftK.  LE.  0.  OR.  KBREftK.  GT.  16000 ) KBREftK=2000 
C CHECK  THAT  lONONL  I NEftR  MULTIPLIER  FOR  RAMP  ABOVE  BREAK 

IFCKNOLIN.  LT. 1)KN0LIN=2 
C INITIAL  LAST  POINT  = FIRST  POINT 

I 0 L D = 1 

C LET  BRIDGE  KNOW  FOREGROUND  ALIVE  l READ V 

CALL  IAIRC-1) 

C LET  DATA  KNOW  WE  ARE  READ V TO  START 

IFCIDATAC0).  NE.  0)GO  TO  999 

C 

C 

C FUNCTION  GENERATION  CODE  FOLLOWS 

DO  2 0 0 I M I 5 = 1 M I S0, NEWMAX 
C:  CALL  AIR  PRESSURIZATION 

CALL  IAIRC1) 

DO  200  I L E V = 1 , 281 
N=ICVCLE< ILEV) 

IFCN.  GT.  0)GOTO  20 

IFCN.  EQ.  -1.  AND.  IMIS/10*10.  NE.  IMIS)GOTO  206 
IFCN.  EQ.  -2.  AND.  I M I 5/100*100.  NE.  I M I S ) G 0 T 0 200 
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N = 1 
C 

30  DO  160  ICVC=i, N 

C CALCULATE  NUMBER  OF  POINTS  IN  RAMP  4 MAKE  SURE  NON  ZERO 

ISTEPS*NPTS(ILEV>/'KRAMP 
IFUSTEPS.  LE.  0 ) I STEPS=1 
C HANDLE  THE  NONLINEAR  CASE 

IF<NPTS< ILEV).  GE.  KBRE AK ) I STEPS* I STEPS*KNOL I N 


C 

C 

C 

C 


35 

C 

C 


C 

C 

40 


C 

C 

C 


45 

C 


C 

C 

C 

50 

C 

100 

200 

C 

300 

C 

C 

900 


ALLOW  FOR  ANY  SPECIAL  REGUESTS  FROM  BACKGROUND 

DETECT  KILL  REQUESTS  A HANDLE  HOLD  A SPECIAL  REQUESTS 

DH1 : 27- JAN-7?  CHANGED  TO  HANDLE  SIMULTANEOUS  GO  AND  ABORT 

IFCICHECKO.  GE.  0>GOTO  35 

I F < NEWM I S.  NE.  0)GO  TO  999 

GO  TO  900 

CONTINUE 

IF  NO  REQUEST  FOR  SPECIAL  START  POINT  SKIP  CODE 
I F ( NE WM I S.  EQ.  0>GOTO  40 

IF<NEWMIS.  NE.  IMIS.  OR.  NEWLEV.  NE.  ILEV.  OR.  NEWCYC.  NE.  ICYOGOTO  100 

NEHMIS-0 

NEWLEV*0 

NEMC YC=0 

I STEPS® JRAMP 


NKM-5  DATA  REQUIRES  A ZERO  AT  END  OF  FLITE 
LE VEL=I LEV 

I F < LEVEL.  EQ.  281)LEVEL=0 

I F < LEVEL.  EQ.  257.  AND.  IMIS/10*10.  NE.  IMIS)LEVEL 
IF  ODD  RAMP  TO  NEW  POINT  - IF  EVEN  RETURN  TO 
IF<ICVC. EQ. I CVC/2*2> GOTO  50 
NKM-2  CALL  DATA  ONLV  THE  FIRST  CVCLE 
CALL  DATA  THEN  RAMP  THEN  HOLD 
I F < I C VC.  GT.  1 ) GO  TO  45 
I F < I DATA < LE VEL  ) . NE  0)GOTO  900 

IF<IRAMP<IREF<1<  I LE V ) , I STEPS, 1 ) . NE.  8 ) GOTO  900 
NKM-2  BIT  14  SET  TO  INDICATE  RAMP  TOP 
LEVTOP=LEVEL+* 40000 
IF<IDATA<LEVTOP). NE.  8)G0  TO  908 
CALL  IHOLD<KHOLD) 

GOTO  100 


: 0 

PREVIOUS  POINT 


CALL  , RAMP  4 HOLD  <GOTO  PREVIOUS  LEVEL) 

NKM-2  REMOVED  CALL  TO  DATA 

IF<IRAMP<IREF<1<  I OLD ) < I STEPS, 1 ) . NE.  0 ) GOTO  900 
CALL  IHOLD<KHOLD> 


CONT 
I OLD 
CONT 
NKM- 
CALL 
CONT 


INUE 
= I L E V 


INUE 

4 DEPRESSURIZE  EVERV  MISSION  COMPLETION 
I A I R < 0 ) 

INUE 


ABORT  RETURN/SET  UP  FOR  RESTART AB I L I TV 

NEWMIS=IMIS 

NEWLEV=I LEV 

NEWCVC=ICVC 
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ISTAT1(11)=0 
I STAT1 (12)  = 0 
DO  910  1=1,12 
910  TEMPX( I ) =0. 

C NOW  SAVE  INFO  ON  DISK  FOR  RESTART 

IDUM  = ISPEC'L(2) 

C RRMP  TO  ZERO  VERV  SLOWLV 

CALL  IRRMPCIZERO, 1000,  0) 

C NKM-4LERVE  AIR  PRESSURE  ON 

CALL  IP0KE( ■167772, 0) 

999  RETURN 

END 


FUNCTION  ISPECL(IVAR) 

HANDLE  ALL  FORGROUND  I/O  REQUESTS  TO  DISK  1-  SLAVE 
INCLUDING  SPECIAL  REQUESTS  OF  THE  BACKGROUND  HERE 
SPECIFICRLLV 

I VAR=1  TRANSMIT  ARRAV  TO  SLAVE 

I VAR=2  RECEIVE  ARRAV  FORM  SLAVE 

I VRR=3  WRITE  OUT  COMMON  TO  DISK 

I V AR  = 4 READ  IN  OLD  COMMON  FROM  DISK 

I V AR  = 5 TRANSMIT  NEW  IN,  IOUT,  IR  TO  SLAVE 

I VRR  = 6 RECEIVE  FROM  SLAVE  CURRENT  IN,  IOUT,  IR 

COMMON  DEFINITIONS 
COMMON  I N ( 2 ) , I OUT ( 2 ) 

COMMON  IR<12),  IC<12),  10(12) 

COMMON  RE  (12),  ALPHA  (12),  BET  A (12),  TEMPX(12) 

COMMON  ISTATK12),  I ST  AT2  ( 12 ) , JREF  ( 12 ) 

COMMON  MIN(12), MAX (12), SLOPE (12),  B INTER (12) 

COMMON  ICVCLE(281), NPTS(281),  I REF ( 11, 281) 

OPTIONAL  TRACE  FEATURE  FOR  DEBUGGING 
ISTAT1(9)=ISTAT1(9).  OR.  2**2 


ALLOW  FOR  BACKGROUND  ( RE ) ATTACHMENT 
CALL  IPOKE( “400,  I ADDR(  IN(i) ) ) 

I F ( I V AR.  EQ.  0 ) RETURN 
G0T0(1, 2, 2, 4, 5, 6),  I VAR 
GOTO  60 


SEND  TO  SLAVE 

IF(MSND(IN(1),144).  NE.  0 ) S T 0 P 'FATAL  SEND  TO  SLAVE' 

GOTO  60 

RECEIVE  FROM  SLAVE 

IF(MREC(IN(1), 144). NE. 0)STOP  'FATAL  RECEIVE  FROM  SLAVE' 
GOTO  60 

WRITE  COMMON  AREAS  TO  DISK 
CALL  ASSIGNd,  ' SV  : AMACOM.  DAT'  ) 
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WRITE(l) ALPHA, BETA, TEMPX,  I ST ATI,  ISTAT2, JREF 
CALL  CLOSE ( 1 ) 

GOTO  66 

RE  AO  COMMON  AREAS  FROM  DISK 
CALL  ASSIGNd,  'SV:  AMACOM.  DAT'  ) 

RE AD(1 ) ALPHA, BETA, TEMPX, ISTATi, ISTAT2, JREF 
CALL  CLOSE(i) 

GOTO  60 


SEND  IN,  I OUT , IR  TO  SLAVE 

IF(M5ND( IN(1>, 16).  NE.  0)STOP  'FATAL  SEND  TO  SLAVE  <16>' 

GOTO  60 

RECEIVE  IN,  IOUT,IR  FROM  SLAVE 

IF(MREC(IN(i), 16).  NE.  0)STOP  'FATAL  RECEIVE  FROM  SLAVE(16)' 
GOTO  60 

END  OF  SPECIAL  FUNCTION  ROUTINES 

ALNAVS  RETURNS  ZERO  (MAKES  BACKGROUND  REQUESTS  CLEANER) 

I SPECL=0 


RETURN 

END 


FUNCTION  IRAMP(NEU, NUM, IABORT) 

DECLARE  COMMON  AREAS  1 LOCAL  ARRAVS  l INIT  LOCAL  ARRAVS 
COMMON  DEFINITIONS 
COMMON  I N < 2 ) , I OUT ( 2 ) 

COMMON  IR(12), IC(12), 10(12) 

COMMON  RE(12),  ALPHA(12), BETA(12), TEMPX (12) 

COMMON  ISTATI (12), ISTAT2(12), JREF (12) 

COMMON  MIN(12), MAX (12), SLOPE (12), BINTER(12) 

COMMON  ICVCLE(281), NPTS(281),  I REF (11, 281) 

DIMENSION  NEW (12), DELTA (12), REF (12) 

NKM-1  ADDED  IRM(ll)  FOR  MASTER  ANALOGUE  OUTPUTS 
DIMENSION  IRM(ll) 

BEGIN  EXECUTABLE  CODE 

OPTIONAL  TRACE  FEATURE  FOR  DEBUGGING 

ISTAT1(9)=ISTAT1(9).  OR.  2**2 

READ  IR  FROM  SLAVE 
I DUM=I 5PECL( 6) 

LIM  CHECK, CALCULATE  DELTA'S  1 ESTABLISH  INITIAL  FLOATING  REF 
DO  20  1=1, 11 

I F < I ABS( NEH( I > >.  GE.  8192)G0T0  999 
TMP=NEW( I)-IR(I) 

DELTA( I )=TMP/NUM 
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0 REF(I)=IR(I) 

C 

C NOW  GO  UP/DOWN  THE  RAMP 

DO  50  J = i, NUM 
DO  40  1=1, 11 
REF( I )=REF( I ) + DELTA( I ) 

C NKM-1  CALCULATE  MASTER  OUTPUT  SCALED  TO  4095 

IRM( I )=REF( I >*.  5 
40  I R ( I ) = REF ( I ) 

C NKM-1  NOW  CHECK  FOR  ANALOG  OUT  INHIBIT 

C ft  SKIP  IF  INHIBITED 

I F < I STAT1 (10) . AND.  2)G0T0  45 
C WRITE  OUT  VALUES  TO  DATA  ON  ANALOGUE  CHANNELS 

IF(ID2A(IRM). NE.  0)GOTO  998 
C ERROR  REPORT  SAME 

C OUTPUT  NEW  IR  TO  SLAVE 

45  IDUM=ISPECL<5) 

C EVERV  8TH  ITTE RATION  SEE  ABOUT  REGUESTS  FROM 

C THE  BRIDGE  (BUTTONS  OR  CONSOLE) 

IF  ( ( J.  AND.  7).  OR.  (IABORT.  EG.  0>)GOTO  58 
IF(ICHECK<).  NE. 0>GOTO  999 
50  CONTINUE 

C 

C NORMAL  RETURN 

I RAMP=0 
RETURN 
C 

C ERROR  RETURN 

998  IRAMP=-2 
RETURN 

999  IRAMP=-i 
RETURN 
END 

C 

C 

SUBROUTINE  IHOLD(ITICK) 

CALL  I 5LEEP<  0, 0, 0,  ITICK) 

RETURN 

END 

C 

C 

FUNCTION  IDATA(LEV,  I REFS) 

C COMMON  DEFINITIONS 

COMMON  I N ( 2 ) , I OUT ( 2 ) 

COMMON  IR<12), IC(12), 10(12) 

COMMON  RE (12), ALPHA (12), BETA (12), TEMPX(12) 
COMMON  I ST  ATI ( 12  ) , I S T AT2 ( 12 ) , JREF ( 12 ) 

COMMON  MIN(12), MAX (12), SLOPE (12), B INTER (12) 
COMMON  ICVCLE(281), NPTS(28i),  I REF (11, 281) 

C ASSUME  SUCCESSFUL 

C OPTIONAL  TRACE  FEATURE  FOR  DEBUGGING 

D I5TAT1(9)=ISTAT1(9). OR.  2**4 

C 

I DAT A = 0 
C 

C IF  INHIBIT  DATA  SET  SKIP  OVER  DATA  CODE 
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I F ( I STAT1 ( 10 ) . AND.  DGGTO  90 

HANDLE  COMMUNICATIONS  WITH  DATA  CHECK  MINI 

OUTPUT  LEVEL  PLUS  FLAG 

CALL  IP0KE(  "167772,  "100000.  OR.  LEV) 

CHECK  FOR  KILL 

0 IF(ISTATKll).  LT.  0)GOTO  998 

WAIT  A TICK 
CALL  IHOLD(l) 

IF  DATA  NORESPONSIVE  TRV  AGAIN 
I F < . NOT.  IPEEK( *167770)  AND.  2**7)G0T0  10 
RESPOND  BV  ZEROING  OUT  BUFFER 
CALL  IP0KE( *167772, 0) 

CHECK  FOR  KILL 

0 IF< I STATIC  11).  LT.  0>6OTO  998 

WAIT  FOR  A TICK 
CALL  I HOLD ( 1 ) 

IF(IPEEK("167770).  AND. 2**7)G0T0  20 
NKM-1 

REMOVED  MASTER  ANALOGUE  OUTPUT  TO  IRAMP  FUNCTION 
NKM-1 

0 RETURN 

ERROR  RETURNS 
98  I DATA=-1 

RETURN 
END 


FUNCTION  ICHECK 
PURPOSE  IS  TO  CHECK  FOR 

KILL,  STOP,  GO  REQUESTS  FROM  CONSOLE  OR  BUTTONS 
AND  READ  REQUESTS  FROM  CONSOLE  (BACKGROUND) 
COMMON  DEFINITIONS 
COMMON  I N ( 2 ) , I OUT ( 2 ) 

COMMON  IR(12>, IC<12), 10(12) 

COMMON  RE(12), ALPHA(12), BETA(12), TEMPX(12) 
COMMON  ISTATK12),  I ST  AT2  ( 12) , JREF  ( 12 ) 

COMMON  MIN(12>, MAX (12), SLOPE (12), B INTER (12) 
COMMON  ICVCLE(281), NPTS(28i), IREF(11, 281) 

DATA  DEFINITION  OF  BIT  PATTERNS  FOR  SWITCHES 
DATA  ISKILL/M0000A  ISHOLD/ *10000/ 

BEGIN  EXECUTABLE  CODE 

ASSUME  SUCCESSFUL 

OPTIONAL  TRACE  FEATURE  FOR  DEBUGGING 
ISTAT1(9)=ISTAT1(9).  OR.  2**5 

I CHECK=0 

READ  THE  KILL, HOLD,  SWITCHES  FROM  BRIDGE 
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0 CALL  I5PECL(6> 

C 

C CHECK  FOR  KILL  (ABORT) 

I F C ISTATi(ll)  LT.  0.  OR.  IN(1).  AND.  ISKILDGOTO  998 
C 

C CHECK  FOR  SPECIAL  REQUESTS  FROM  BACKGROUND 

IF(  ISTATK12).  NE.  0)  I STATi  < 12)  ■ I SPECL  < I ST  ATK  12  ) ) 

C: 

C IF  WE  ARE  RUNABLE  THEN  RETURN 

I F<  I STATi  ( 11 ) . GE.  1.  AND.  (.  NOT.  IN(1).  AND.  I SHOLD) ) RETURN 
C 

C WAIT  JUST  ONE  SECOND 

CALL  IHOLD<60> 

C GO  BACK  FOR  ANOTHER  CHECK 

GOTO  10 
C 

C KILL  (ABORT)  RETURN  POINT 

998  ICHECK=-i 

RETURN 
END 
C 
C 

SUBROUTINE  IAIR(I) 

C COMMON  DEFINITIONS 

COMMON  I N ( 2 ) , I OUT  < 2 ) 

COMMON  I R ( 1 2 ) > IC(12),  10(12) 

COMMON  RE (12), ALPHA(12), BETA (12), TEMPX(12) 

COMMON  I STATi (12),  I ST AT2 ( 12 ) , JREF ( 12 ) 

COMMON  MIN(12), MAX (12), SLOPE (12), B INTER (12) 

COMMON  ICVCLE(2B1),  NPTS(281),  IREFdi,  281) 

C OPTIONAL  TRACE  FEATURE  FOR  DEBUGGING 

D ISTATi(9)=ISTATi(9).  OR. 2**6 

C 

I F ( I ) 5 , 10,  20 

I < 0 THEN  SIGNAL  OPERATIONAL 
CALL  ISPECL<6> 

IR(12)=2000 
CALL  I S P E C L ( 5 ) 

RETURN 

1=0  DEPRESURIZE 
CALL  ISPECL(6) 

I R( 12 ) =0 
CALL  ISPECL(5) 

CALL  IHOLD(480) 

RETURN 


I > 0 THEN  PRESURIZE 
0 CALL  ISPECL(6) 

IR(12)=6000 
CALL  I SPECL ( 5 ) 

CALL  I HOLD ( 900 ) 
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RETURN 

END 

C 

C 

FUNCTION  I POT 

PURPOSE  OF  THIS  FUNCTION  IS  TO  UTILIZE  THE  POTENTIOMETER 
ON  CHftNNEL  12  FOR  ALLOWING  MANUAL  CHANGING  OF  THE 
LOADS  TO  THE  CHANNELS 

ARRAVS  USED  I R, JREF, M I N, MAX, SLOPE, B I NTER 


COMMON  DEFINITIONS 
COMMON  I N ( 2 ) , I 0 U T ( 2 ) 

COMMON  I R ( 1 2 ) , I C ( 1 2 ) , 10(12) 
COMMON  RE  < 12  > i ALPHA(12),  BETA  ( 
COMMON  ISTATK12),  ISTAT2(12), 
COMMON  M I N ( 12 ) , M AX ( 12 ) , SLOPE ( 
COMMON  ICVCLE(281), NPTS(28i), 
DIMENSION  I RM  < 11 ) 


12), TEMPX(12) 
JREF ( 12 ) 

12), 8 INTER (12) 
I REF ( 11, 281) 


BEGIN  EXECUTABLE  CODE  SETION 


INITIALIZATION 
ASSUME  SUCCESSFUL 
I POT=B 

READ  IR  & IC  FROM  SLAVE 
CALL  ISP  ECL<2) 

SET  UP  SLOPES  AND  INTERCEPTS  AND  INITIAL  POINT 
DO  18  1=1, 11 

SLOPE (I )=FLOAT(MAX< I )-MIN< I ))/489$. 

81 NTER< I ) =MI N(  I ) 

6 JREF(I)=SL0PE(I)*IC(12)+BINTER(I) 

RAMP  TO  INITIAL  POINT 
I F(  I RAMP (JREF, 2000, 1).  NE.  0)GOTO  998 

BEGIN  MAIN  LOOP 
READ  NEW  POT  VALUE 
0 CALL  ISPECL(2) 

OPTIONAL  TRACE  FEATURE  FOR  DEBUGGING 
ISTAT1(9)=ISTAT1(9). OR.  2**7 


CALCULATE  NEW  JREFS  «•  INSURE  IN  BOUNDS 
DO  20  1=1, 11 

JREF (I ) -SLOPE ( I )*IC(12>+BINTER( I > 
IF(IABS(IR(I)-JREF(I)).  GT.  500) GOTO  997 
I R < I > = JREF ( I ) 

I RM< I ) =1 R( I )/2 
CONTINUE 

OUTPUT  THE  NEW  VALUES 
I F < I D2 A ( I RM  ) . NE.  0)GO  TO  996 
CALL  ISPECL(5) 

C 

C HANDLE  READ  SPECIAL  REQUEST 
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IF<ISTRTi<12>.  EG. 2>ISTRT1<12)=ISPECL(ISTRT1<12)) 
C ALL  OTHERS  ft  RE  ERRORS 

IF<ISTRTi<12).  NE  0 ) I STflTi < 12 ) =-i 
C: 

C IF  POT  MODE  STILL  IN  EFFECT  60  ONCE  AGAIN 

I F < ISTATK11).  EG.  2)  GOTO  20 
C 

C OTHERWISE  RETURN 

RETURN 

C 

C ERROR  RETURNS 

996  IP0T=IP0T-1 

99?  IP0T=IP0T-1 

998  IP0T=IP0T-1 

RETURN 
END 
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C BR.  FOR  21- JRN-77  MOO  I F I CRT  I ON  OF  B .FOR 

C FOR  USE  NITH  ftMftVS 

C RLL  REFERENCES  TO  SNOOPV  DEMO 

C HAVE  BEEN  REMOVED 

C 

C UTILIZING  PEEKS  t POKES 

C 

BLOCK  DRTR 

COMMON  L»  LF, LR, MBPV<11), MBRSE(ii) 

C 

DRTR  MBPV/2,  2,  2,  2,  4,  4,  4,  4,  2,  2,  2/ 

DRTR  MBRSE/0, 8, 32,  56, 80, 128, 176, 224, 272, 296, 320/ 
END 
C 

COMMON  L, LF, LR, MBPV<11), MBRSE(ll) 

DIMENSION  SF  < 4 ) , SV<4> 

DRTR  SF/'HGLH', ' RNDU' , ' K0PZ' , 0. / 

DRTR  SV/'URCO', 'EABT', '128', 0.  / 

C 

C 

C MRINLINE 

CRLL  IPOKE< *400, 8) 

CALL  ISLEEP(0, 0, 2, 0) 

L=IPEEK<*400) 

IF<L.  EO.  0)STOP  ' FOREGROUND  NOT  ACTIVE' 

LF=L+144*2-2+8 

LR=L+143*2-2+8 

CALL  IPOKE(LF, 2) 

CRLL  IPOKE(LR,0) 

TVPE  99, L, LF, LR 

99  FORMRT<'  RUNNING  WITH  L LF  LR  ',308) 

C MAKE  THE  SCREEN  APPEAR  NICE 

GO  TO  7 
C 

C FUNCTION  DISPATCHER 

10  CRLL  I CUR  < 3 ) 

TVPE  100 

100  FORMRT(' +FUNCTION  ',$) 

CRLL  GETSTR<  5, SC, 1) 

M=INDEX(SF, SC) 

I  F < M.  EQ.  0 ) GOTO  10 

GOTO <1,  2,  3,  4,  5,  6,  7, 8, 9, 1018, 1111, 1212), M 
C 

GO  TO  10 
C STOP 

1 CRLL  IPOKE(LR,0) 

GOTO  10 

C 

C RUN 

2 CRLL  I POKE  < LR, 1 ) 

GOTO  10 

C 

C LOOK  RT  A VARIABLE 

3 CALL  I CUR  < 3 ) 

TVPE  110 

110  FORMRT(' +VRRIABLE  ',$) 

CRLL  GETSTR(5, S2, 1) 
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Ml= I NDEX  < S V, S2) 

I F(  Ml.  EG.  0 ) GOTO  10 
CRLL  I CUR  < 2 ) 

TVPE  120 

120  FORMATd  tINTEGER  CHANNEL#  ',*) 

ACCEPT  121/ I CHN 

121  FORMAT (12) 

I F ( I CHN.  LE.  0.  OR.  ICHN.  GT.  204>GOTO  10 
R=RGVAR<M1, ICHN) 

CALL  I CUR ( 1 ) 

TVPE  120/ 52/ ICHN, R 

130  FORMAT<"+  "/Ai,"  <",I2,')  = ",F15.6) 

CALL  I CUR  < 2 ) 

GOTO  10 

C 

C MOD  I F V VARIABLE 

4 CALL  I CUR ( 1 ) 

TVPE  120/  52/  ICHN, RG V AR  < Ml,  ICHN) 

CALL  I CUR  < 2 ) 

TVPE  150 

150  FORMAT<"+  FLOATING  POINT  NEW  VAL=  ',*) 
ACCEPT  151, REAL 

151  FORMAT ( F 15.  7) 

CALL  I CUR ( 2 ) 

TVPE  160 

160  FORMAT ( " +ARE  VOU  SURE?  ' , t) 

CALL  GETSTR<  5, SC, 2) 

CALL  SCOMP<" V' , SC, IVES) 

IF(IVES.  EQ.  0 ) C ALL  RPVAR(M1, ICHN, REAL) 

CALL  I CUR ( 2 ) 

CALL  I CUR ( 1 ) 

GOTO  10 

C 

C READ  TABLE  FROM  SLAVE 

5 CALL  IP0KE<LF,2) 

55  IF<IPEEK<LF). NE.  0>GOTO  55 

GOTO  10 

C 

C WRITE  TABLE  TO  SLAVE 

6 CALL  I POKE  < LF, 1) 

66  IF(IPEEK(LF).  NE.  0)GOTO  66 

GOTO  10 

C 

C DISPLAV 

7 CALL  ITTOUT< "212, "214, 1, 1) 

TVPE  175 

175  FORMAT  <" +CHAN  REF  CONTROL  OUTPUT  ERROR 

9 ' A B TEMPX  STAT-1  STAT-2  0JREF'  ) 

TVPE  180/ (J, <INT<RGVAR< I« J))/ 1=2, 5)/ 
9<RGVAR< I / J), 1=6, 8), 

9<INT<RGVAR<  I, J)),  1=9, 11), J = l, 12) 

180  FORMAT  <"  12,  418,  F6.  2,  F8.  4,  F8.  1/  17,  17,  17) 

TVPE  190,  (IPEEKd  >,  I=L,  L + 6,  2) 

190  FORMAT  (.'  ,/21X,'IN=  ',07,  07/'  OUT=  ",  07/07) 
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GOTO  10 
C 

C UPDATE  DISK 

8 CALL  I CUR ( 3 ) 

TVPE  760 

700  FORMATS + DISK  READ  OR  WRITE  ? ',*) 

CALL  GETSTR(5, SC, 3) 

M=INDEX(SF, SC) 

I F ( M.  LT.  5.  OR.  M.  GT.  6)G0T0  10 
I F ( M.  E 6.  5 ) C AL  L IPOKE(LF,  4) 

I F < M.  EQ.  6 ) CALL  IPOKE(LF,  3) 

77  IF(IPEEK(LF).  NE.  0>GOTO  77 

GOTO  10 
C 
C 

C KILL  (ABORT) 

9 CALL  I POKE ( L R, -1) 

GOTO  10 

C 

C 

C 0 (REQUEST  RAMP  TO  VALUES  IN  JREFARRAV) 

1010  CALL  I POKE ( LR,  2) 

GOTO  10 

C 

C DLH-2  NEXT  TWO  FUNCTIONS  ADDED  27-JAN-77 

C POT  MODE  AND  ZERO  BETA  - TEMPX 

C 

C 

C ENTER  POT  MODE 

1111  CALL  I POKE ( LR, 3) 

GOTO  10 

C 

C 

C ZERO  BETA'S  ft  TEMPX 

C ! ! ! DOES  NOT  WRITE  TO  SLAVE 

C !!!  ft  ASSUMES  POSITION  OF  BETA  ft  TEMP  X I 

1212  DO  1213  1*1, 12 
CALL  RPVAR  ( 7,  1,0.) 

CALL  RP  VAR  ( 8,  1,0.) 

1213  CONTINUE 
GOTO  10 
END 

C 

C 

FUNCTION  IGLOC(N, ISUB) 

COMMON  L, LF, LR, MBPV(ii), MBASE(ll) 

IGLOC  = L + MBASE(N)  + MBPV(N)*( I SUB-1) 

RETURN 

END 

C 

C 

FUNCTION  RG V AR ( N, ISUB) 

COMMON  L, LF, LR, MBPV(ll), MBASE(ll) 


SV=7  ft  8 
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[> 

D100 


C 

C 


D 

D100 

10 

D 


20 

C 

C 

C 

C 

C 

C 

C 


10 


20 


C 

C 


DIMENSION  I V ft  R < 2 ) 

EQUIVALENCE  (RVfiR,  I V ft  R ) 
LOC=IGLOC<N,  I SUB ) 

TVPE  100,  N,  I SUB,  LOC,  L 
FORMATS  N,  ISUB,  LOC,  L ',216,20?) 
I VftR(i)=IPEEK<LOC) 
IVftR(2)=IPEEK(L0C+2) 

IF(MBF’V<N).  EQ.  2 ) R 6 V ft  R = I V ft  R ( 1 ) 
IF<MBPV(N>.  EQ.  4 ) R G V ft  R = R V ft  R 
RETURN 
END 


FUNCTION  RF'VftR<N,  ISUB,  R) 

COMMON  L,  LF,  LR,  MBPV(ll),  MBFISE(ii) 

RP VflR=0 

LOC= I GLOC ( N, ISUB) 

IF(MBPV(N).  NE.  2 ) G 0 T 0 10 
I = R 

TVPE  100,  N,  ISUB,  R,  LOC,  L 

FORMftT<'  N, ISUB, R, LOC, L', 216, F15.  7, 20?) 
CALL  IPOKE(LOC, I ) 

RETURN 

IF<MBPV(N).  NE.  4 ) G 0 T 0 20 
LOCl=IfiDDR(R) 

TVPE  100,  N,  ISUB,  R,  LOC,  L 
CftLL  IPOKECLOC,  IPEEK(LOCi) ) 

CALL  I POKE ( LOC  + 2,  I PEEK ( L0C1  + 2 ) ) 

RETURN 
RPVflR  = -i. 

RETURN 


END 


FUNCTION  ICUR(J) 

THIS  FUNCTION  POSTIONS  THE  CURSOR  TO  BOTTOM  OF  PAGE 
CLEARS  THE  LINE 
FOR  INTERACTIVE  USE 
CALL  ITT0UT<*1?, J,  *0) 

DO  10  1=1, 20 
CRLL  ITTOUTC40) 

CONTINUE 

CftLL  ITTOUT< ■!?, J, 0) 

RETURN 

END 


SUBROUTINE  I VX( IX, IV) 

CALL  ITT0UT(15,  IX,  0) 

DO  20  1=1, IV 

CftLL  ITTOUT (9) 

CONTINUE 

RETURN 

END 


FUNCTION  UPDATE < IV, IX, VNEW, VOLD) 
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100 

* 


U P D ft  T E = 0 . 

I F<  VNEM.  EQ.  VOLD)RETURN 
UPDftTE=l. 

VOLD=VNEH 

CfiLL  IVXCIV, IX-1) 

TVPE  106,  INK  VNEM) 
FORMAT , 15) 

RETURN 

END 
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BLOCKDRTR 

C COMMON  DEFINITIONS 

COMMON  I N ( 2 ) , I0UT(2) 

COMMON  I R ( 1 2 > » I C < i 2 > > 10(12) 

COMMON  RE  (12)/  ALPHA (12),  B E T A ( 1 2 ) , TEMF'X(12> 

COMMON  I STATIC  12),  I S T A T 2 ( 1 2 ) , JREFC12) 

COMMON  M INC  12),  MAX  C 12),  SLOPE  (12),  E:  INTER  (12) 

COMMON  I CVCLE  C 281 ) , NPTSC281),  I REF (11, 281) 

C 

C DATA  DECLARATIONS 

DATA  I N X 2 * 0 X , I 0 U T X 2 * 0 / 

DATA  I R X 1 2 * 0 X , ICX12+0X,  10/12*0/ 

DATA  R E X 1 2 * 0 . X , A L P H A X 1 2 * 0 . X , 8 E T A X 1 2 * 0 X , T E M F'  X X 12*0.  X 
DATA  ISTAT1X12*0X,  I S T A T 2 X 1 2 * 0 X , JREFX12*0X 
DATA  MINX12*0X 

C LEVEL  15  MAXI  MUMS  FOR  POT  CONTROL 

DATA  MAXX 

1 118?, -2709, 514, -449, 1372, 2, -2787, -1502, 601, -2767, -2724, IX 
DATA  5LOPEX12*0.  X, BINTERX12*0. / 
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BLOCKDATA 

C COMMON  DEFINITIONS 

COMMON  I N < 2 ) , I OUT ( 2 ) 

COMMON  I R ( 12  ) , I C ( 12  > < 10(12) 

COMMON  RE  ( 12  > 4 ALPHA(12),  BETA<12>,  TEMPX(12) 

COMMON  ISTATK12),  ISTAT2(12),JREF<12) 

COMMON  M I N ( 1 2 > 4 M AX ( 12 ) , SL0PE(12>4  BINTER(12) 

COMMON  ICVCLE<281), NPTS(281>4 IREF(11, 281) 

DATA  DECLARATIONS 
DATA  IN/2*0/,  I OUT/2*0/ 

DATA  I R / 1 2 * 0 / , I C / 1 2 * 0 / , 10/12*0/ 

DATA  R E / 1 2 * 0 . /,  ALPHA/12*0.  /,  E:ETA/12*0.  /,  TEMPX/12*0  / 

DATA  I STAT 1/12*0/4  ISTAT2/12*0/, JREF/12*9/ 

DATA  M I N/12*0/ 

C LEVEL  15  MAXIMUMS  FOR  POT  CONTROL 

DATA  MAX/ 

1 118 7, -2709, 514, -449, 1272, 2, -2767, -1502, 601, -2767, -2724, 1/ 

DATA  SLOPE/12*0.  /, 8 I NTER/12*8.  / 

DATA  ICVCLE/ 

5 -2,  -2,  -1,  -1,  1,  1,  1,  1,  -2,  -2,  -1,  -1,  1,  1,  1,  1,  -2,  -2,  -1,  -1,  1,  1,  1,  1,  1, 
5 1<  ~2,  -2,  -1,  -1,  1,  1,  1,  1,  1,  1,  - 2,  -2,  -1,  -1,  1,  1,  1,  1,  -2 , -2,  -1,  -1,  1,  1, 

5 1,  1,  1,  1,  1,  1,  1,  1,  — 4,  *4,  — 1 4 — 1 4 1,  1,  1,  1,  — 2 4 — 2 4 — 1 4 — 1 , 1,  1,  — 2 4 — 2 4 “1, 

1 -1,  1,  1,  1,  1,  1,  1,  -2,  -2,  -1,  -1,  1,  1,  1,  1,  1,  1,  -2,  -2,  -1,  -1,  1,  1,  1,  1,  1, 

^ “2,  -2,  -1,  -1,  1,  1,  1,  1,  1,  1,  1 , 1,  - 2,  - 2,  -1,  -1,  1,  1,  -2,  - 2,  -1,  -1,  1,  1, 

^ ""2,  — 2,  — 1 , — 1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  21,  1 , 57,  1,  1,  — 2 , — 2 , — 1,  — 1,  1,  1,  — 2, 

^ ^ ^ 1,1,1,— 2 ,—  2,—  1,— 1,1,1)-  2,  —2,—  1, 
5 -1,  1,  1,  1,  1,  1,  11,  1,  15,  1,  1,  1,  1,  -2,  -2,  -1,  -1,  1,  1,  -2,  -2,  -1,  -1,  1,  1, 

5 - 2,  -2,  -1,-1,  1,1,1,  1,1,1, -2,  -2,  -1,-1,  1,1,1,  1,-2,  -2,  -1,-1,  1,1,1, 
^ ^ ^ ^ ' — e->  — 2 ' 1 ' 1'  1'  1'  1,  1'  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1,  1, 
5 1,  1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -1,  -l,  -i,  -i,  -i,  -i,  -i,  -i,  -1,  - i, 

1 -1,  -1,  -1,  -1,  -1,  1,  / 

DATA  NPTS/ 

2 4184,  2830,  2959,  2279,  2754,  1969,  1220,  1220,  2256,  2707, 

7  2461,  2195,  2010, 1805,  1294, 1294, 6210, 5251,  5825, 2610, 

1 5518,  2297,  1764,  205,  1128,  205,  1764,  2620,  1292,  2646, 

5 2215,  1866,  1497,  492,  205,  697,  2810,  4492,  2754,  2015, 

2 2400,  1784,  1477,  1148,  2279,  2466,  2077,  2728,  2228,  2020, 

7 1579,  615, 205, 676,  676, 205, 2112, 205, 2441,  4718, 

1 4000,  2202,  2666,  2152,  1600,  512,  5046,  4512,  4207,  2159, 

5 2610, 1969, 2425, 4656, 2928,  2261,  2625,  2112,  2020,  205, 

9 2728, 205, 1497,  2405, 2128, 2728, 2218,  1989,  1722,  574, 

8 205, 820, 2912, 2222, 2922,  2564, 2215, 1887,  1425,  615, 

1 205, 522, 2279, 2620, 2128,  2646,  2215,  1866,  1497,  492, 

5 207,  205,  2195,  205,  1274,  2202,  2954,  2584,  2218,  2051, 

8 2425, 2610, 2220, 2851,  2542, 2256, 2610, 2222,  2282,  2666, 

2 2995, 2112,  2584, 2202, 2461, 2461, 1948, 2026,  2871,  2789, 

5 24  82,  2441, 2112, 2010, 2995, 5641,  5087,  4492,  4000,  2507, 

9 2522,  1528,  2461,  1294,  2259,  1210,  522,  205,  2297,  205, 

2 1107, 2461, 2195, 1928, 1682,  1425,  2789,  2707,  2502,  2152, 

7 2226,  1600,  2912,  2522,  2625,  1928,  2279,  1425,  1220,  2820, 

2 2605, 2502,  2122, 1928, 861, 205, 1682, 205,  1722, 

8 3222, 2851, 2542, 2152, 2051, 2712, 2179, 2202, 2582, 2912, 

1 1805, 2620, 2222, 2692,  2542,  2774, 2051,  2826,  205,  1661, 

1 205, 2769, 5528, 4779, 4020, 2425, 2871, 2297, 1661, 2820, 
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2 3795, 2226, 2954, 2461, 2174, 1661, 552, 2520, 205, 4522, 

7 4287, 4269, 1907, 4205, 1559, 942, 942, 4574, 2174, 779, 

1 205, 1559, 205, 861, 1866, 1005, 205, 1661, 205, 1169, 

5 2174, 1661, 205, 4205, 1559, 942, 942, 2071, 1559, 1210, 

9 943, 4574, 2174, 1189, 205, 1559, 205, 861, 1866, 1005, 

2 205,  1661,  205,  1169, 2218, 1661, 205, 4205, 1559, 942, 942, 2022, / 
DRTfi  IREF7 

1 2218, -4095, 985, -752, -8, 0, -2860, -2211, 1014, -2248, -2981, 

1 719, -1229, 219, -245, -2, 0, -929, -718, 228, -1052, -968, 

1 2100, -2879, 922, -712, -8, 0, -2709, -2094, 960, -2068, -2822, 

1 827, -1546, 271, -284, -2, 0, -1080, -825, 282, -1222, -1126, 

1 1982, -2662, 880, -672, -7, 0, -2557, -1977, 907, -2897, -2666, 

1 940, -1726, 417, -219, -4, 0, -1212, -927, 429, -1272, -1264, 

1 1455, -2715, 644, -477, 1200, 0, -1894, -1465, 671, -2146, -1975, 

1 1469, -2712, 652, -499, -6, 0,-1894, -1465, 671, -2146, -1975, 

1 1771, -4001, 786, -708, -7, 0, -4895, -2224, 898, -4895, -4846, 

1 622, -1406, 276, -249, -2, 0, -1429, -782, 212, -1429,  -1422, 

1 1664, -2758, 728, -665, -7, 0, -2846, -2888, 826, -2846, -2808, 

1 730, -1649, 222, -292, -2, 8, -1688, -917, 266, -1688, -1668, 

1 1580, -2569, 701, -622, -7, 8, -2652, -1982, 794, -2652,  -2689, 

1 814, -1829, 261, -226, -4, 0, -1882, -1822, 408, -1882, -1859, 

1 1187, -2789, 514, -449, 1272, 0, -2767, -1502, 601, -2767,  -2724, 

1 1197, -2784, 521, -479, -5, 8, -2767, -1502,  681,  -2767,  -2724, 

1 2945, 2476, 2688, 169, 2841, 8, -1229, -2597, 1889, 8, -1284, 

1 215,  809,  515,  795,  -2081,  8,  -228,  -254,  242,  8,  802, 

1 2240, 3044, 2226, 271, 2210,  8, -1175, -2217,  981,  8,  -1020, 

1 769,  1206,  828.  702,  -1220,  8,  -479,  -602,  441,  8,  477, 

1 2826, 2682, 2042, 255, 1518, 0, -1028, -1901, 811, 0, -724, 

1 1198, 1512, 1088,  628, -722, 0, -595, -871,  518, 8,  226, 

1 2125, 2182,  1621, 477, 997, 0, -847, -1457,  685,  8, -221, 

1 2125, 2182, 1621, 477, 997,  0, -847, -1457,  685,  0,  -221, 

1 2174, 1062, 1794, 354, 786, 162, -229, -1442, 712,  0,  -1086, 

1 2174, 1862, 1794, 254, 786, 162, -229, -1442, 712,  0,  -1886, 

1 2912, 1984, 2904, 490, 855, 195, -427, -2854,  974,  0,  -2279, 

1 266,  174,  622,  205,  -252,  -58,  -12,  25,  429,  8,  162, 

1 2442, 1675,  2602, 452, 70S, 162, -281, -2472,  982,  0,  -1957, 

1 855,  412,  946,  244,  -100,  -22,  -71,  -262,  512,  8,  -172, 

1 3025, 1476, 2242,  420, 581,  122, -221, -2148, 842,  8,  -1676, 

1 1281,  582,  1168,  272,  8,  1,  -112,  -645,  565,  8,  -412, 

1 2668, 1297,  2107, 290, 466, 186, -288, -1841,  786,  8,  -1422, 

1 2179,  1059,  1794,  251,  214,  71, - 229, -1442,  712,  0,-10  8 6, 

1 2179,  1059,  1794, 251,  214, 71, -229, -1442,  712,  8,  -1086, 

1 1487,  721,  1250,  295,  97,  22,  -146,  -878,  688,  8,  -689, 

1 2828, 1496,  2564, 187, 1486, 248,  789,  -1525,  128,  8,  -2267, 

1 221,  1071, 512, 70, -1254,  -287, -1171, -1528, 988,  8,  1828, 

1 22  29,  1426,  20  62, 168, 182  5, 226, 299,  -15  26,  269,  8, -2  6 45, 

1 822,  1141,  1016,  89,  -882,  -184,  -861,  -1529,  840,  8,  297, 

1 2742, 1269, 2649, 152, 664, 152, 145, -1527, 284, 0, -2851, 

1 1208,  1199,  1429, 10  5, -4  22, -99, -607,  -15  28,  724,  8,  -2  96, 

1 2490, 1229,  2424, 144, 471, 187, 12,  -1527,  444,  8, -1742, 

1 1561, 1229, 1644, 112, -229, -55, -474, -1528,  664,  8,  -686, 

1 3866,  2417,  2589,  118, 445, 181, -442, -2128, 786,  8, -2519, 

1 476,  229,  724,  127,  -161,  -27,  -52,  -172,  259,  8,  -41, 

1 3478,  2179,  2262,  128,  276, 86, -298, -2799, 727, 8, -2225, 

1 885,  522,  1011,  125, -102, -24, -98, -468, 480, 8, -282, 

1 3091, 1948, 2926, 122, 206, 70, -254, -2468, 688, 8, -1952, 
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1 1096,  711,  1256,  134,  -50,  -12,  -124,  -714,  437,  0,  -494, 

1 2645,  1666, 2561, 125,  227, 51, -302, -2070, 632,  0, -1627, 

1 2026, 1284, 2039, 128, 116, 26, -231, -1528, 554, 0, -1174, 

1 2026,  1284,  2039, 128, 116,  26, -231, -1528, 554, 0, -1174, 

1 1348,  866,  1468,  132,  -5,  -2,  -153,  -934,  469,  0,  -678, 

1 2021,  1287, 2039, 131, 429, 99, -231, -1528, 554, 0, -1174, 

1 2021, 1287, 2039, 131, 429, 99, -231, -1528, 554, 0, -1174, 

1 -50,  -63,  709,  1749,  0,  -191,  570,  -1372,  843,  0,  -806, 

1 -50,  -63,  709,  1749,  0,  -191,  570,  -1372,  843,  0,  -806, 

1 14,  -66,  2238,  4095,  0,  -969,  1194,  -3755,  1946,  0,  -2209, 

1 -102, -65, -726, -458, 0, -540, -16, 864, -191, 0, 510, 

1 -3,  -65,  1779,  3389, 0, -903, 1007, -3038, 1614, 0, -1787, 

1 -85,  -65,  -295,  205,  0,  -602,  160,  192,  119,  0,  114, 

1 -19,  -65,  1375,  2769,  0,  -844,  842,  -2410,  1323,  0,  -1417, 

1 -72,  -65,  24,  695,  0,  -648,  290,  -305,  349,  0,  -178, 

1 -33, - 65,  1038,  2250,  0,-795,  704, -1884,  1080,  0,-1107, 

1 -45,  -65,  709,  1746,  0,  -748,  570,  -1372,  843,  0,  -806, 

1 -120,  -139, 867, 3326, 0, -1194,  1117, -2205, -4095, 0, 129, 

1 -85,  -78,  -367,  309,  0,  -840,  115,  172,  320,  0,  133, 

1 -115,  -129,  665,  2832,  0,  -1136,  953,  -1816,  -3373,  0,  130, 

1 -90,  -86,  -201,  715,  0,  -887,  250,  -148,  -274,  0,  132, 

1 -109, -120,  472, 2360, 0, -1081, 796, -1445,  -2682,  0,  130, 

1 -94,  -93,  -66,  1044,  0,  -926,  359,  -407,  -756,  0,  132, 

1 -11, -34,  2248, 4088, 0, -1327,  1189, -3763,  1931,  0,  -2193, 

1 -138,  -38,  -846,  -390,  0,  -3949,  -68,  792,  -325,  0,  650, 

1 -31, -34, 1768, 3394, 0, -1733,  994, -3056,  1581,  0,  -1753, 

1 -120,  -37,  -395,  262,  0,  -3567,  115,  129,  3,  0,  236, 

1 -48,  -35,  1347,  2784,  0,  -2090,  823,  -2437,  1274,  0,  -1366, 

1 -106,  -37,  -62,  744,  0,  -3285,  250,  -361,  245,  0,  -70, 

1 -41,  -68,  709,  1743,  0,  -1304,  570,  -1372,  843,  0,  -806, 

1 -41, -68, 709, 1743,  0, -1304, 570, -1372, 843,  0,  -806, 

1 2623,  616,  1427,  554,  -256,  -60,  -191,  -507,  -940,  0,  -1129, 

1 2623, 616, 1427, 554, -256, -68, -191,  -507,  -940,  0,  -1129, 

1 4095, 1311, 2370, 682, 251, 57, -317, -958,  -1778,  0,  -2062, 

1 773,  -245,  248,  402,  -187,  -43,  -34,  57,  107,  0,  38, 

1 3834, 1189, 2204, 660,  217,  49, -294, -878,  -1630,  0,  -1897, 

1 1163,  -62,  498,  434,  -135,  -31,  -67,  -62,  -114,  0,  -209, 

1 3443,  1006,  1954,  627,  165,  37,  -261,  -759,  -1408,  0,  -1650, 

1 1489,  91,  706,  462,  -92,  -22,  -95,  -162,  -299,  0,  -415, 

1 3183,  884,1788,  605,131,30,  - 239,-679,-1260,0,-1485, 

1 2618,  619,  1427,  557,  56,  13, -191, - 507, -940,  0,-1129, 

1 2618,  619,  1427,  557,  56,  13, -191, - 507, - 940,  0,-1129, 

1 1815, 243, 914, 489, -50, -12, -123, -261, -484, 0, -621, 

1 3916,  2989,  30  99,  574,  141,  32, -911, -3113,  1001,  0,-3004, 

1 660,  44,  427,  322,  -197,  -45,  -86,  -121,  386,  0,  -51, 

1 3523, 2633, 2776, 544, 100, 23, -812, -2751, 926, 0, -2647,  ' 
1 1018,  368,  721,  350,  -160,  -37,  -177,  -450,  453,  0,  -376, 

1 3165,  2309,  2483,  516,  63,  14,  -721,  -2423,  859,  0,  -2323, 

1 1322, 643, 970, 373, -128, -30, -254, -729, 511, 0,  -652, 

1 2735, 1921, 2130,  483,  19, 4, -612, -2028, 778, 0,  -1933, 

1 2127,  1371,  1631,  4 36, - 45, -11, - 458, -146 9,  663,  0,-1382, 

1 2127, 1371, 1631, 436, -45, -11, -458, -1469, 663, 0, -1382, 

1 1590,  886,  1190,  394,  -100,  -23,  -322,  -976,  561,  0,  -895, 

1 3912,  1904,  2904,  490,  855,  195, - 437, - 2854,  974,  0,-2279, 

1 366,  174,  633,  205,  -253,  -58,  -12,  35,  439,  0,  163, 
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1 

1 

1 

1 
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2443, 1675, 2602, 452, 708, 162, -281, -2472, 902, 0, -1957, 
855,  412,  946,  244,  -100,  -22,  -71,  -262,  512,  0,  -172, 

2035, 1476, 2242, 420, 581, 122, -222, -2140, 842, 0, -1676, 
1201,  582,  1168,  272,  8,  1,  -112,  -645,  565,  0,  -412, 

2668,  1297,  2107,  290,  466,  106,  -288,  -1841,  786,  0,  -1422, 
2179, 1059, 1794, 251, 214, 71, -229, -1442, 712, 0, -1086, 
2175, 1062, 1794, 252, 622, 142, -229, -1442, 712, 0, -1086, 
2175,  1062,  1794,  252,  622,  142,  -229,  -1442,  712,  0,  -1086, 

22. 103. 1549. 926. 0.  2202. 1024, -872, 1773, 0, -1682, 

23,  102,  1549,  926,  0,  2202,  1024,  -872,  1772,  0,  -1682, 

-55,  -1,  2406,  729,  0,  2497,  2240,  471,  1115,  0,  -2728, 

2,  34,  285,  -69,  0,  -129,  -622,  -602,  2021,  0,  504, 

-49,  2,  2178,  652,  0,  2212,  1921,  255,  1214,  0,  -2280, 

-4,  20,  512,  18,  0,144,  -224,  - 487,  1922,  0,156, 

-44,  5,  1998,  582,  0,  1990,  1687,  264,  1291,  0,-2107, 

-8,  27,  677,  80,  0,  247,  -102,  -405,  1862,  0,  -92, 

-4,  81,  2708,  1274,  0,  2092,  2592,  -285,  1272,  0,  -2447, 

58,  119,  291,  492,  0,  214,  -545,  -1458,  2272,  0,  82, 

2,  85,  2462,  1281,  0,  2789,  2262,  -409,  1278,  0,  -2074, 

52,  115,  626,  585,  0,  518,  -214,  -1224,  2167,  0,  -290, 

8,  88,  2267,  1206,  0,  2546,  1996,  -509,  1462,  0,  -2776, 

47,  112,  815,  652,  0,  741,  29,  -1242,  2090,  0,  -562, 

72,  200,  2895,  2174,  0,  2627,  2770,  -1462,  1592,  0,  -4095, 
131,  225,  758,  1260,  0,  980,  -126,  -2545,  2517,  0,  -829, 

79. 202. 2682. 2092. 0.  2272. 2482, -1571, 1685, 0, -2772, 

125.222.970.1441.0. 1244.161,-242  8,  2425,0,-1162, 

84,  206,  2504,  2025,  0,  2150,  2229,  -1661,  1762,  0,  -2499, 

120.229.1150.1509.0. 1467.404,-22  47,2247,0,-14  2 5, 
240,  425,  2265,  2225,  0,  2554,  1907,  -4095,  2569,  0,  -2961, 
27,  100,  1549,  922,  0,  1654,  1024,  -872,  1772,  0,  -1682, 

187,  351,  2161,  2727,  0,  2079,  1686,  -2289,  2270,  0,  -2291, 
27,  100,  1549,  922,  0,  1654,  1024,  -872,  1772,  0,  -1682, 

152, 298,  2021, 2244, 0, 2775, 1545, -2774,  2242,  0,  -2026, 
-42,  -10,  1280,  144,  0,  1027,  722,  192,  1510,  0,  -920, 

142,  281,  1990,  2224,  0,  2680,  1501,  -2612,  2202,  0,  -2912, 
-28,  -2,  1201,  202,  0,  1074,  755,  111,  1520,  0,  -987, 

122,  251,  1916,  2009,  0,  2509,  1421,  -2222,  2121,  0,  -2707, 
-25,  2,  1212,  229,  0,  1103,  768,  62,  1541,  0,  -1021, 

162. 217. 1825. 1778. 0.  2219. 1222, -2000, 2051, 0, -2479, 
-28,  12,  1227,  211,  0,  1160,  794,  -24,  156  5,  0,  -108  9, 

-169,  -17  2, 1101, 240  6, 0,  4095, 2227, -964, 922,  0,  - 2642, 
-102, -126, -1526, 1900, 0, -1418, -659,  1097,  -709,  0, -814, 
-162, -169, 840,  2256,  8, 2547, 2020, -759,  760,  0,  - 2262, 
-110, -121, -1249,  1952, 0 , -826,  -242,  879,  -526,  0 , -1112, 
-157, -164, 611, 2212, 0, 2067, 1771, -580, 618, 0, -2116, 
-116,  -125,  -1020,  1997,  0,  -25  6,  -84,  700,  -295,  0,  -12  5 9, 
-82,  -122, 

-190, -178 
-87,  -124, 

-184, -175 
-94,  -128, 
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, 754, 
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1957, 
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, 60,  112,  0 

/ ~~ 

2228, 
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i 

1 

i 

1 

1 

1 

1 

1 

i 

i 

i 

i 

1 

1 

i 

i 

1 

1 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

i 

1 

1 

1 

1 

1 

1 

1 

1 


1 

1 

1 

1 

1 

i 

1 

1 

1 


-132- -152- -204, 2151- 0- 814, 844- 80- 112, 0, -2228, 

155-  519,  2029,  525-  -4,  -10,  808,  -298,  -725,  8,  -777, 

155,  519-  2029,  525,  -4,  -10,  808,  -298,  -725,  0,  -7  77, 

90,  442,  2549-  212,  267,  1085,  1227,  192,  258-  0,  -927, 

-160, 245- 142, 168, -219, -944, -209, -65, -121, 0, 407, 

62,  421-  2284-  297-  291-  862,  1067,  165,  206,  0,  -788, 

-125,  265-  287-  182-  -250,  -728,  -152,  -29,  -72,  8-  271, 

37,  401, 2829, 282, 221, 655, 918, 138, 257, 8, -645, 

-109, 286- 622- 197- -188, -521, 5, -12, -22, 0, 126- 
288,  621,  2264,  608,  494- 1461, 1668, -254, -471, 0, -1512, 

12, 412, 713-448, -262,  - 775, -44, -528, -999,  0,-42, 

259,  687, 2879- 590, 412,  1228, 1476, -284, -527, 0, -1254, 

41,  425,  978-  464,  -187,  -551,  126-  -510,  -947,  0,  -189, 

221-  586,  2814,  574, 227,  996, 1206, -212, -588, 0, -1287, 

68-  456,  1242.  480,  -111,  -228,  297,  -481,  - 894,  0,  - 236, 

501,  826-  4095, 946-  575- 1701, 2007,  -816, -1516, 0,  -2075, 
245,  622,  1627,  797,  -129,  -280,  421,  -1881,  - 2007,  0,  - 707, 
472, 812, 2809, 929- 494- 1461, 1824, -847, -1572,  0,  -1917, 
275,  656-  1912,  814,  -47,  -129,  605,  -1051,  -1951,  0,  -865, 

446- 792- 2564, 914, 424, 1254, 1666, -872, -1621, 8, -1781, 
200-  676,  2157,  829,  22-  68,  762,  -1024,  -1982-  8-  -1001, 

508, 862, 2270, 1079, 292, 865,  1468, -1279,  - 2274,  0,  -1769, 
-95,  288,  1124,  149,  -6,  -16,  254,  211,  292,  8,  -95, 

46  8, 817,  2190, 108  4, 268, 795, 1279, -1159, -2152,  8,  -1625, 
-76,  205,  1192,  177,  2,  11,  288,  165,  286,  8,  -147, 

278,  728,  2885,  878,  228,  675,  1228,  -957,  -1776,  8,  -1407, 

-25, 244, 1245, 241, 24, 71, 464, 64, 118, 8,-26  8, 

155,  519,  2829,  525,  -5,  -14,  888,  -296,  -725,  8,  -777, 

155,  519,  2029,  525,  -5,  -14,  888,  -296,  -725,  8,  -777, 

1812,  925,  1285,  514, - 217, - 51, - 58, -1556,  502,  8,-1164, 

1812, 925, 1285, 514, -217, -51, -50, -1556, 582, 8, -1164, 
2287, 1757, 2876, 821, 485, 111, -117, -2249, 581, 8, -2568, 
262,  169,  598,  228,  -278,  -62,  12,  -5,  421,  0,  114, 

2972, 1529, 1872, 748, 282, 87, -99, -2882, 568, 8, -2192, 

645,  217,  726,  284,  -199,  -46,  8,  -288,  445,  8,  -126, 

2606, 1247,  1694, 675, 290,  66, -82, -2411,  542, 8, -1869, 

728, 261, 777, 281, -178, -41, -4, -297, 449, 8, -289, 
i-,'69,  1159,  1829,  725,  587,  124,  417,  -1716,  -2187,  8,  -2811, 
450,  221,  569,  207,  -128,  -22,  42,  -48,  -75,  8,  -26, 

2998, 1848, 1677, 659, 495, 112, 269, -1582, -2791, 8, -1759, 
762,  20  2,  679,  252,  - 75,  -18,  75,  -186,  -245,  0,  -19  8, 

2627,  921,  1516,  59  2,  40  2,  92,  222,  -12  90,  - 2295,  8,  -1587, 

972, 289, 796, 280, -8, -2, 189, -241, -622, 8* -282, 

2298, 1824, 2107. 822, -2551, -812, -212, -2297, 498, 8, -2828 

27? » 242  j 628*  229*  -4095,  - ft  "•  8 • - ? * - 4 4 ft  t 1 7 

2882,  1616,  1904,  758, -2626, -828, -194* -2858  472^  8, -1665, 

559,291, 766, 286, -4045, -926, -91, -258, 267, 8, 278, 

2518, 1422, 1725, 677, -2691, -845, -177, -2457, 455, 8, -1245, 
642,  425, 807,  202, -4028, -922, -95, -448,  271,  8, 297, 

1814, 925, 1285, 512, -272, -64, -50, -1556*582, 8, -1164. 
1814,  925,  1285,  512,  -272,-64,  - 58,  -1556,  582,  8, 

1290, 1897, 2088, 26, -1988, 0, -568, -788, 1944, 8, 

1290,  1897,  2080, 26,  -1908,  8, -568, -788,  1944, 8, -584, 

2628,  1789,  2117, -75,  522, 8,  9, -721,  1612, 8, -2218, 


-1164, 

-584, 
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15  5 5, -2792,  215/ -278/ - 5 
69?  / -125  5/  141/  -125/  -2/ 
1 1 1 ? / -2912/ 228/ -189/ 
1127/ -2022, 228, -291/ 


1297, -750, -12 — 

, 9 , -628/  — 2 2 ( / — 6 2 & / —849,  —101-' 
21,  0.  -1012/  -54  4 

544, -1069/ -1269, - 
1668, 2057, 0 , -1128. 


4 . Tl 


\ A i 


1009/ -1269/ -1627 

^ 7 . 
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1 1802,  922,  1205, 520, 455, 105, -50, -1556,  502,  0, -1164, 

1 2606,  12  4?,  1694,  675,  290,  66,  -82,  -2411,  542,  0,  -1869, 

1 894,  448,  858,  224,  -127,  -22,  -11,  -575,  457,  0,  -256, 

1 1814,  925,  1205, 512, -272, -64, -50, -1556, 582. C, -1164, 

1 1814,  925,  1205, 512, -272, -64, -50, -1556, 502, 8, -1164, 

1 129  0 1 9 7.  2080,  26,  -1908,  0,  -568,  - 788,  1944,  8,  - 584, 

1 1290,  1897,  2080,  26, -190*  0 -568,-780,1944,0,-584, 

1 2441,  2450,  2419,  59,  - 757,  0,  - 805,  -1668,  28  5'  -I  . -1118, 

1 166,  1266,  1688,  -6,  -2240,  0,  -278,  246,  1812,  0,  227, 

1 1:25.  1216,  1621,  222,  -2861,  0,  - 605,  -822,  1866,  0,  - 227, 

1 1805,  1216,  1621,  2::  ?Sl,  8,  -605,  -822,  1866,  0,  -227, 

1 1555, - 2792,  215, - 278, - 5,  0,-1297, - 7 5?  - . 2 91.  -1889,-22  59, 

1 699,  -1255,  141,  -125,  -2,  0,  -628,  -227,  -626,  -849,  -1015, 

1 110,  -2012,  228,  -1S9,  921,  0,  -1012, -544, -1089, -1269, -1627, 

1 1127,-2022,228,-281  - 0,-1012,-544,-1009,-1269,-1627, 

1 0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 

1 / 

END 
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TT : <AMSGEN. BR5 

10  REM  MOD  20-NOV-76  INVERT  ICVCLE  ARRBV  (11,281) 

50  DIM  L ( 281, 11) 

51  DIM  0(281) 

52  DIM  P(li) 

53  DIM  D ( 281 ) 

60  PRINT  ''NUMBER  OF  DIFE PENCE  UNITE  PER  OUTPUT  STEP  (M)", 

65  INPUT  M 

70  PRINT  "SCALE  FACTOR", 

75  INPUT  S 

100  OPEN  "CVCLE.DAT"  FOR  INPUT  AS  FILE  #1 

110  OPEN  "LOADS.  DAT"  FOR  INPUT  AS  FILE  #2 

200  FOR  1=1  TO  11 

210  FOR  J=1  TO  281 

215  IF  END  #2G0  TO  900 

220  INPUT  #2 : L ( J,  I) 

230  NEXT  J 

240  NEXT  I 

200  FOR  1=1  TO  281 

305  IF  END  #1G0  TO  900 

210  INPUT  # 1 : C ( I ) 

220  NEXT  I 

400  FOR  1=1  TO  11\READ  P(I)\NEXT  I 

500  REM  SCALE  THE  TABLE 

510  FOR  1=1  TO  11 

515  FOR  J=1  TO  281 

520  L(J»  I)  = INT(L(J,  I)/P(I)*S) 

530  NEXT  J 
540  NEXT  I 

600  REM  DETERMINE  NUMBER  OF  POINTS  PER  RAMP 
610  FOR  J=2  TO  281 
612  T=M 

614  FOR  1=1  TO  11 

620  IF  T>ABS(L( J,  I )-L( J-l,  I ) ) THEN  620  \T  = ABS ( L ( J,  I ) -L ( J-l,  I ) ) 

630  NEXT  I 

625  D(J)=INT(T/M) 

640  NEXT  J 
650  D<1)=6200 
660  CLOSE 

800  REM  OUTPUT  THE  DATA 

805  OPEN  "TABLE.  FOR"  FOR  OUTPUT  AS  FILE  #2 
810  PRINT  #2  : CHRK9);  " DATA  ICVCLE/" 

820  FOR  1=1  TO  281 
820  A = C ( I ) 

840  GOSUB  2000 
850  NEXT  I 
860  GOSUB  2000 

900  PRINT  #2:CHR*(9>, "DATA  NPTS/" 

910  FOR  1=1  TO  2 8 1 X A = D ( I ) \ G 0 S U B 2800  \NEXT  I 
920  GOSUB  3000 

950  PRINT  #2:CHR*(9); " DATA  I R E F / " 

960  FOR  J=1  TO  281XF0R  1=1  TO  11 
970  A=L ( J, I ) 

980  GOSUB  2000 

990  NEXT  I 

992  GOSUB  2060 

994  NEXT  J 

999  GOSUB  2000 

1100  PRINT  #2:CHR$(9); "END" 
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1900  CLOSE 

1910  OPEN  ' BLOCKD.  PRO'  FOR  INPUT  ft S FILE  #1 

1920  OPEN  'TABLE.  FOR'  FOR  INPUT  AS  FILE  #2 

1930  OPEN  ' BLOCKD.  FOR"  FOR  OUTPUT  AS  FILE  #'< 

1940  IF  END  #1  THEN  I960 

1950  INPUT  #1:A$\PRINT  #2:A*\G0  TO  1940 

I960  IF  END  #2  THEN  1980 

1970  INPUT  #2:A*XPRINT  I2:A*\G0  TO  I960 

1980  CLOSE 

1999  GO  TO  22000 

2000  REM  TAKE  ANOTHER  DATA  POINT  A BUILD  STRING 
2010  GOSUB  4000 

2015  Z$=5TRf(A) 

2020  A$=Af AZfA' , ' 

2025  IF  LEN<  A A ) >60GO  TO  2060 
2020  RETURN 

2060  PRINT  #3 : CHR$  < 9 ) A I $A'  "AAA 
2070  A*  = " 

2080  RETURN 

3000  REM  END  OF  SECTION 

3010  PRINT  #3 : CHR$ ( 9 ) A I $A'  ' t-.R$t  ' /' 

3020  R$  = " 

3030  RETURN 

4000  REM  CONVERT  VAR  I TO  SINGLE  DIGIT  STRING 
4010  I A = STR$ ( I ) 

4020  I*=SEG*< 1$, LEN< I $), LEN( I A)  ) 

4025  IF  lt<>'0'  THEN  4020  \I*='5' 

4020  RETURN 

10000  DATA  78204, 77262, 50200, 116694, 247420 
10100  DATA  125957,129699,18224,8812 
10200  DATA  89062, 59929 
3200O  END 
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DfiTfi  ICVCLE/ 

~ <L  > -2/  “ 1 / - 1 > 1/  !.■ 

i.  “2,  -2;  “i 


-1,  -i,  i,  i,  ii  1,  -2,  -2i  -1,  -ii  1/  ii  iz  1/  ii 

i,  1,  i,  1,  1,  1,  -2,  -2,  -1,  -1,  1,  i,  1,  1/  -2,  -2,  -1,  -1,  1/  i 

. i / 1 ; 1/  1 , 1 ; 1/  “ 2 / “ 2 / “1/  - 1 / 1.*  1.*  1 / 1/  “ 2 / “ 2 / “1/  “1/  1 .•  1 ~ •'  ""  1 •' 

’ll  1 } 1 i 1 • 1 / 1 .*  1 / “ 2 .•  “ 2 / “ i / “ 1 / 1 / 1 / 1. 1 i .*  1 / 1.  “ £ / - - *“  1 ■*  1 1 •'  1 / 1 / 1 ' 

“ i / 1 / i } “ 2 / “ 2 .•  “ 1 / “ 1 / i .*  1 i 


i,  -2,  -2;  -1/  -1,  i,  1/  i,  i/  ii  i.  ii  ii  ~2  - : - 

-2i-2i-li-iiiiiiiiliiii.  : ii2iiii57iiiii-2i-2i-ii-iiiiii-2i 


-2 i “ 1 > if ii 


-ii  “ii  ii  I..  “2i  - 2 i -ii  “ii  i..  ii  -2i  -2i  -i, 


i,iiiiiiii5iiiiiiiii-2i-2i-ii-iii/i»-2i-2i-i*-i  - 


“2..  -2i  -ii  -I.,  ii  i..  ii  i..  i..  ii  “2i  -2i  “ii  -i..  ii  ii  i 
ii  ii  ii  -2i  -2i  -ii  “ii  ii  ii  I.,  ii  ii  ii  i.*  ii  i,  1 : : 


-2,-1  - 1 - i i . i , i ,, 

1 . i i i i i . 1 ; i i i / i i i i i i 
•1,  “i..  “ii  -ii  “ii  “i..  -ii 


- 1 « - 1 . - i , - i , - 1 . i , / 

RTR  N P 1 5 / 

6206i  2766,  25??  13 1 1 2 1 1 6 , 1 9 2 6 .•  i 2 0 4 ..  i 2 86,  2281,  2656/  24  87,  215  8 , 1 5 


- 17  55.1445 i i 3:  g , 2 2 8 5 ■ 2 7 8 8 . j 8 § 2 , 2 5 ' 
Q 1 . ? 0 7 1 . 1 . 2 7 9 7 , 4619;  7 9? 2 7 1 ! 8 , 253; 


7 Q O C il  ?!  P,  , 

1 p p p 2: 7 ~ 6 

^ c;  c;  c. 

- 2 2 - 1 “ 1 . 

2 6 71.  2 2 8 8 * 

19  5 4 

1842, 1413. 

6 9 8 .*  1/  537/ 

2322 

1/  2152/ ii  i 

3 4 2:,  3232/  2 

884, 

•"1  '•i  /?  *^  7 tr  -*• 

C.  £,  .1  Jr  ‘ J -•  c.  i 

8 2 56 ..  2 9 3 3 , 

2618 

2895/ 2724/ 

2433/ 2385, 

2 0 5 3 

1514, 1456/ 

12. 7 8;  1281/ 

•1  •«  C;  4 

1 4 8 7 i 2 73  2/ 

2 651/  2366.* 

2181 

1 2 1 3 / 2 7 6 6 ; 

2 544,  24  5 8 .. 

2 0 8 2 

2192,  2314, 

3 6 3 6 311 2 .• 

2714 

..  2828,  2256.' 

172?/ 

1 1 1 ‘ f . 1 7 ? 

i - ^92.  1 ? if-  J 

; “•  - 7 

2665, 2?42, 22 

il-.£  1995, 

1-49  •• 

61?,  1,  678,  67 

2165..  15??,  5 

12/  49 

2 8 , 4 4 1 5 , 2 6 ? 2 

, 2566, 2876, 

1981/ 

1,  2664,  1,  14? 

1,  882,  2 8 52, 

3 2 5 6 .. 

2862.  2 5 05,  ii 

, 2588, 2188, 

i 8 3 J- . 

145?, 48?, 208 

2 3 8 7 .•  19  6 5,  2 937.  551 3 • 4965,  43:  8 3 , 3 8 3 3 , 3 423.*  24 
i 2 8 1 .*  118  4.,  53?.,  i . 2243.  i.<  1895.,  2 4 8 7 , 2142,  i 8 9 7 15:2 
2366 .•  2181  .*  i 8 3 6 .•  1571.*  2852.*  2468.  2182..  1897,  1552..  14 
9 4 ..  8 5 3-  i . 1 5 5 I 1 . 16  ? 3 ■ 3 244,  2798..  2495 
5-  244  5 2358.  1753,  3543.-  3253,  2883,  2588;  21 


9 2 '3 1 ? .•  3 7 5 7 i i .•  i 6 3 5 • 1 27  8 6 . 5 412,  4572  .•  3 9 3 2 • 3 3 4 5 , 2 8 8 8 2246.-  1634.-  277 
2 3718- 


4 { J / i 

4 3 


I w - i t 


2 5 3 5 . 2 418..  2 1 3 3 , i 6 2 5 ..  5 4 8 2359,  1 , 4432/  2185/  2022/  i 8 6 1 .. 
9 2 3 .•  925/  4 4 7 3 / 2133.,  1 1 6 5 .•  1 .*  1531/  1 / 8 5 5 / 18  3 6 / 


2 1 . 1151*  2 13  3 16  28'  1 • 413  5 .•  1537.*  923/  92  5 . 7 6 


cj  -1  =:  “ 


9 115  5,1,1531,1 8 5 5 / 1 8 36..  981.*  1 , 


1,  1151  2 27  5,  1639;  1,  4188.  153* 


1 92  3/9  25/292  3,  / 
DRTR  I REF/' 
i 2218;  -4895/  985.. 


-75?  - 3 0 , - 2 860,  - 2 2 i i ..  1814,  - 3 2 4 8 / - 2 9 8 1 , 
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-121?  r i ? , -24?..  - 2 ..  3,  -92?..  -719.  325,  -1052,  -968, 

8.  -2?09,  -2??4,  960.  -2068,  -2822' 
e, -I@89, -022, 292, -1222, -1126, 


w v 4 

.^71  5 


•2897,  -266  6, 


-1546,  271,  -28*  ■ -2. 

, - 2662,  8 80  -6  72  -7,0,-2557.  - 1 9 7 7 . 9 0 ' 

• 1?  -219  -4,0  -1212  -92  7,  429,  -1272,  -1264, 

544  -477  lie?. 0, -1894, -1465  671, -2146, -1975, 
, -27i2. ill  - d 9 9 , -6, 0, -1894, -1465, 671, -2146, -1975, 

— -001,  786.  -708.  -7,  0,  -4095.  -2224.  899,  -4095,  -4046, 
-1406,  276,  -240,  -7.  g,  -14  29,  -782,  212,  -1429,  -1422, 

- 2 750. 729-  -665. -7,  0, -2846, -2089,  826  -2846, -2800, 
-1649,  222,  -292,  -2,  9..  -1688  -917,  266,  -1688,  -1668, 

, -2569, 781, -622, -7, 9, -2652, -1982, 794, -2652, -2699, 
-1829,  261,  -226,  -4,  0,  -1882,  -1022,  408,  -1882,  -1859, 

, -2709, 514, -449. 1272, 0, -2767, -1502, 601, -2767, -2724, 
, -2704,  521, -479, -5, 0, -2767, -1502,  601, -2767, -2724, 

, 2476, 2688, 169, 2041, 0, -1229, -2597, 1009, 0, -1284, 

899,  515,  795,  -2081,  8,  -228,  -254,  242,  0,  802, 

, 2044,  2226,  271,  2210,  9,  -1175, 

1296,  828,  702,  -1220,  0,  -479, 

, 2682, 2042, 255, 1518, 0, -102 
, 1512,  1088,  620,  -722,  0,  -595 
, 2182,  1621,  477,  997,  0,  -847, 

, 2182,  1621,  477,  997,  0,  -847, 

, 1862,  1794, 254, 706, 162, -22 

, 1062,  1794,  254,  705- 162, -229, -1442, 712, 0,  -1086, 

. 1904.  2904,  490,  855,  195,  -427,  -2854,  974,  0,  -2279, 

174,  622,  205,  -252,  -58,  -12,  25,  429,  0,  162, 

, 1675,  2602,  452,  70S, 162, -281, -2472,  902,  0, -1957, 

412,  946,  244,  -103,  -22,  -71,  -262,  512,  0,  -172, 


, 582, 1168, 272, 


, -22 

17, 901, 

0,  - 

1020 

602, 
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1 24  41,  2 4 50,  2419, 59, -757, 0, -805, -1668, 2057, 0, -1138, 

1 308,  1340,  1734,  -1,  -2241,  0,  -311,  126,  1828,  0,  141, 

1 1933,  2186, 2256, 44, -1110, 0, -687, -1241, 2003, 0, -833, 

1 1385,  1900, 2080, 29, -1492, 0,-560, -780, 1944, 0,-504, 

1 1805,  1316, 1631,  332, -3861, 0, -605, -822, 1866, 0, -227, 

1 1805, 1316, 1631, 332, -3861, 0, -605, -822, 1866, 0, -227, 

1 1736, -3116, 351, -310, -5, 0, -1559, -837, -1554, -2108, -2520, 

1 518,  -931,  105,  -93, -2,  0, -466, -258, -464, -638, -753, 

1 1646,  -2954, 333, -294, -5, 0, -1478, -793, -14  73, -1999, -23  89, 

1 608, -1093,  123, -189, - 2,  0,-547, -294, - 545, - 748, - 884, 

1 1555, -2792, 315, -278, -5, 8, -1397, -758, -1392, -1889, -2259, 

1 699,  -1255, 141, -125, -2, 0, -628, -337, -626, -849, -1815, 

1 1118,  -2013, 228, -189, 921, 8, -1013, -544, -1889, -1369, -1637, 
1 1127, -2023, 228, -201, -4, 0,-1013, -544, -1809, -1369, -1637, 

1 2441, 2450, 2419, 59, -757, 0, -805, -1668, 2057, 0, -1138, 

1 388,  1340, 1734, -1, -2241, 8, -311, 126,  1828, 8, 141, 

1 1379, 1984, 2080, 32, -1076, 0, -560, -788, 1944, 8, -584, 

1 1379, 1904, 2088, 32, -1076, 8, -560, -780, 1944, 0, -504, 

1 1803,  932,  1305,  5 28,  455,  105, - 50, -1556,  503,  8,-1164, 

1 1803,  932,  1305,  520,  455,  105,  -58,  -1556,  583,  8,  -1164, 

1 2606, 1347, 1694, 675, 298, 66, -83, -2411, 542, 8, -1869, 

1 894, 448, 858, 334, -137, -32, -11, -575, 457, 8, -356, 

1 1814,  925, 1385, 513, -273, -64, -58, -1556, 503, 8, -1164, 

1 1814,  925,  1305,  513, -273, -64, -58, -1556, 583, 8, -1164,  * 

1 1390, 1897, 2080, 26, -1908, 8, -560, -788, 1944, 8, -504, 

1 1390, 1897, 2 8 8 8 « 2 6 , -1908, 8, -560, -788, 1944, 8, -584, 

1 2441, 2458, 2419, 59, -757, 0, -805, -1668, 2857, 8, -1138, 

1 388,  1340,  1734, -1, -2241, 8, -311, 126,  1828, 8,  141, 

1 1805, 1316, 1631, 332, -3861, 8, -605, -822, 1866, 8, -227, 

1 1805, 1316, 1631, 332, -3861, 0, -685, -822, 1866, 8, -227, 

1 1555, -2792, 315, -278, -5, 0, -1397, -750, -1392, -1889, -2259, 

1 699, -1255, 141, -125, -2, 0, -628, -337, -626, -849, -1815, 

1 1110,  -2013, 228, -189, 921, 0, -1013, -544, -1089, -1369, -1637, 
1 1127, - 2023,  228, -201, - 4,  0,-101 3,  - 544,-1889,-13  69,-1637, 

1 1555, -2792, 315, -278, -5, 0, -1397, -750, -1392, -1889, -2259, 

1 699, -1255,  141, -125, -2,  8,-628, -337, - 626, -8 49, -1815, 

1 1110, -2013, 228, -189, 921, 8, -1013, -544, -1089, -1369, -1637, 
1 1127, -2023, 228, -201, -4, 0, -1013, -544, -1889, -1369, -1637, 

1 2441, 2458, 2419, 59, -757, 0, -885, -1668, 2057, 8, -1138, 

1 388, 1340, 1734, -1, -2241, 8, -311, 126, 1828, 8, 141, 

1 1379, 1984, 2880, 32, -1076, 8, -560, -788, 1944, 8, -584, 

1 1379, 1904, 2880, 32, -1076, 8, -568, -780, 1944, 8, -584, 

1 1883, 932, 1305, 528, 455, 105, -58, -1556, 583, 8, -1164, 

1 1803,  932- 1385, 520, 455, 105, -58, -1556, 583, 0, -1164, 

1 2606, 1347, 1694, 675, 298, 66, -83, -2411, 542, 8, -1869, 

1 894, 448, 858, 334, -137, -32, -11, -575, 457, 8, -356, 

1 1814, 925, 1305, 513, -273, -64, -50, -1556, 583, 0,-1164, 

1 1814, 925, 1305, 513, -273, -64, -50, -1556, 503, 8, -1164, 

1 1398, 1897, 2080, 26, -1988, 0, -560, -780, 1944, 8, -504, 

1 1390, 1897, 2080, 26, -1988, 0, -568, -788, 1944, 8, -584, 

1 2441, 2458, 2419, 59, -757, 0, -885, -1668, 2857, 8, -1138, 

1 166,  1266,  1688,  -6,  -2340,  0,  -278,  246,  1813,  8,  227, 

1 1885, 1316, 1631, 332, -3861, 0, -605, -822, 1866, 8, -227, 

1 1805, 1316, 1631, 332, -3861, 0, -605, -822, 1866, 8, -227, 
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* 


1 15  55,  -2792,  2:15,  -278,  -5,  0,  -12:97,  -750,  -1292,  -1889, 
1 699,  -1255,  141,  -125,  -2,  0,  -628,  -227,  -626,  -849,  -101 
1 1110,  -2012, 228,  -189, 921, 0,  -1012,  -544, -1009, -1269 
1 1127,  -2022, 228, -201, -4, 0, -1012,  - 544,  -1009, -1269, 
1 0,  0,  0,  0,  0,  0,  0,  0,  0,  0,  0, 


-2259, 


,-1627 

-1627, 


1 / 
END 
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T I TLE-AMATBL. FOR  : 10-DEC-75 

THIS  PROGRAM  SUPPLYS  THE  LOAD  TABLES  FOR  THE 
AMAVS  TEST  PROGRAM  AND  MUST  BE  LINKED  AS  FOLLOWS: 
AMAVS2CAMAPRX,  AMAPRT, AMACAL, AMAHLD, AMAVS2, AMATBL/F/L/I 

DIMENSION  R < 2 8 1 , 11) 

C 

DATA  R/42417. , 12764. , 48178. , 16811. , 27922. , 17978. , 

1 27822. , 28891. , 22888. , 11982. , 21819. , 12964  , 

1 28217.  , 15566.  , 22787.  , 22892.  , 75448.  , 4118.  , 

1 62881.  , 14721.  , 54241.  , 22914.  , 48645.  , 48645.  , 

1 41578.  , 41578.  , 74885.  , 7882.  , 65842.  , 16255.  , 

1 58858  , 22979. , 51826. , 41684  , 41684. , 28425. , 

1 72052.  , 4425.  , 61758  , 15727.  , 52467.  , 25820.  , 

1 47622.  ,298  64.  ,72927.  ,9116.  ,66528.  ,15411., 

1 59112.  , 28967.  , 58595.  , 28744.  , 28744.  , 25781.  , 

1 28658.  ,28658.  ,-927.  ,-927.  , 286., -1922.  , 

1 -57.  , -1689.  , -259.  , -1278.  , -612.  , -858.  , 

1 -2292.  , -1624.  , -2182.  , -1714.  , -2878.  , -1787.  , 

1 -282.  , -2627.  , -581.  , -2282.  , -912.  , -2821.  , 

1 -779.  , -779.  , 58159.  , 58159.  , 78284.  , 14782.  , 

1 72222.  , 22256.  , 65849.  , 28484.  , 68867.  , 58872.  , 

1 50872.  , 24711.  ,74897.  ,126  29.  ,67278.  ,194  71., 

1 60527  , 25288. , 52216. , 48684. , 48684. , 28428  , 

1 74805.  , 7002.  , 65842.  , 16255.  , 58858.  , 22979.  , 

1 51826.  , 41684.  , 41688.  , 41688.  , 442.  , 442.  , 

1 -1840.  , 54.  , -922.  , -62.  , -829.  , -147.  , 

1 -71.  , 1122.  , 54.  , 997.  , 155.  , 984.  , 

1 1485.  , 2588.  , 1514.  , 2298.  , 1687.  , 2286.  , 

1 4602.  , 526.  , 2582.  , 526.  , 2928.  , -819.  , 

1 2727.  , -717.  , 2268.  , -656  , 1952.  , -522.  , 

1 -2221.  , -1962.  , -2896.  , -2895.  , -2987.  , -2285.  , 

1 -1574.  , -2617.  , -1652.  , -2512.  , -1784.  , -2281.  , 

1 -2515.  , -2515.  , 2978.  , 2978.  , 1721.  , -2852.  , 

1 1195.  , -2567.  , 709.  , -2882.  , 5524.  , 265.  , 

1 4958.  , 791.  , 4432.  , 1217.  , 9595.  , 4788.  , 

1 9029.  , 5266.  , 8542.  , 5752.  , 9722.  , -1885.  , 

1 8886.  , -1449.  , 7229.  , -666.  , 2979.  , 2979.  , 

1 24675.  , 24675.  , 64788.  , 6944.  , 56825.  , 12246.  , 

1 49844.  , 12925.  , 64429  , 8617.  , 57248.  , 12457.  , 

1 58242.  , 18628.  , 62866.  , 5282.  , 55121.  , 18698.  , 

1 48149.  ,12285  ,24694  ,24694  , 26586.  , 26586.  , 

1 69576.  , -16686  , 57787.  , -4817.  , 48427.  , 2719.  , 

1 29492.  , 12476.  , 66496.  , -4591.  , 55619.  , 458.  , 

1 46684.  , 5896.  , 26972.  , 26485.  , 24524.  , 24524.  , 

1 22282.  , 9917.  , 21477.  , 11642.  , 29752.  , 12267.  , 

1 21241.  . 21568.  , 46684.  , 5896.  , 26284.  , 26284.  , 

1 24488  , 24488. , 49844  , 17112. , 24694  , 24694  , 

1 26586. , 26586. , 46684  , 5896. , 24524. , 24524. , 

1 29752.  ,12267.  ,21241.  ,21568  , 29 752.  ,12267., 

1 21241.  , 21568.  , 46684.  , 5896.  , 26284.  , 26284.  , 

1 24488.  ,24488.  ,49844  ,17112.  , 24694.  ,24694.  , 

1 26586.  , 26586.  , 46684.  , 2177.  , 24524.  , 24524.  , 

1 29752  , 12267.  ,21241.  ,21568  , 8.  , 
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2 -77262.  , -25071.  , -72168.  , -29165.  , -69075.  , -22746.  , 

2 -51218.  , -51167.  , -75480.  , -26520.  , -70890.  , -21110.  , 

2 -67220.  , -24680.  , -51110.  , -51000.  , 65596.  , 15279.  , 

2 57427.  , 22759.  , 50627.  , 28528.  , 41182.  , 41182.  , 

2 20052.  , 20052.  , 25928.  , 2295.  , 21615.  , 7796.  , 

2 27864.  , 10984.  , 24488.  , 19987.  , 19987.  , 12610.  , 

2 28228.  , 20222.  , 26918.  , 21542.  , 25824.  , 22627.  , 

2 25268.  , 22192.  , 45621.  , 6218.  , 41118.  , 10045.  , 

2 26614.  , 12422.  , 21426.  , 24221.  , 24221.  , 16250.  , 

2 24285.  , 24285.  , -1172.  , -1172.  , -1228.  , -1212.  , 

2 -1225.  , -1214  , -1222.  , -1216.  , -1221.  , -1220.  , 

2 -2612.  , -1468.  , -2424.  , -1622.  , -2246.  , -1746.  , 

2 -626.  , -705.  , -628.  , -692.  , -649.  , -685.  , 

2 -1268.  , -1268.  , 11640.  , 11640.  , 24727.  , -4610.  , 

2 22425.  , -1157.  , 18982.  , 1719.  , 16681.  , 11694.  , 

2 11694.  , 4596.  , 56405.  , 842.  , 49688.  , 6948.  , 

2 42582.  , 12127.  , 26255.  , 25876.  , 25876.  , 16717.  , 

2 25928.  , 2295.  , 21615.  , 7796.  , 27864.  , 10984.  , 

2 24488.  , 19987.  , 20029.  , 20829.  , 1948.  , 1948.  , 

2 -17.  , 651.  , 54.  , 579.  , 111.  , 528.  , 

2 1521.  , 2262.  , 1608.  , 2185.  , 1670.  , 2128.  , 

2 2774.  , 4448.  , 2841.  , 4281.  , 2897.  , 4225.  , 

2 8217.  » 1897.  , 6627.  , 1897.  , 5625.  , -188.  , 

2 5209.  , -20.  , 4741.  , 64.  , 4109.  , 252.  , 

2 -2258.  , -2276.  , -2170.  , -2469.  , -2094.  , -2546.  , 

2 -2291.  , -2248.  , -2222.  , -2294.  , -2299.  , -2226.  , 

2 -2869.  , -2869.  , 9805.  , 9805.  , 8274.  , 4628.  , 

2 7962.  , 5018.  , 7582.  , 5298.  , 11912.  , 7798.  , 

2 11470  , 8209.  , 11059.  , 8621.  , 15775.  , 1194  4.  , 

2 15221.  , 12287.  , 14951.  , 12767.  , 16287.  , 5424.  , 

2 15416.  , 5769.  , 12942.  , 6506.  , 9805.  , 9805.  , 

2 17470.  , 17470.  , 22167.  , 2192.  , 29050.  , 5992.  , 

2 25427.  , 6817.  , 21876.  , 4187.  , 19627.  , 5721.  , 

2 17277.  , 7257.  , 24615.  , 4582.  , 20490.  , 7287.  , 

2 26859.  , 8212.  , 17458.  , 17458.  , 25880.  , 25888.  , 

2 22761.  , 27962.  , 24225.  / 27288.  > 24791.  , 26971.  , 

2 25227.  ,26496.  ,56411.  ,19981.  ,58825.  ,22494.  , 

2 46226.  ,25287.  ,4124  8.  ,25862.  ,24822.  ,24822.  , 

2 -58777.  , -17556.  , -55722.  , -28618.  , -52670.  , -22662.  , 
2 -27976.  ,-2  8167.  ,46226.  , 25287.  ,25924.  , 25924.  , 

2 17586.  , 17586.  , 25427.  , 8464.  , 17458.  , 17458.  , 

2 25880.  , 25808.  , 46226.  , 25287.  , 24822.  , 24822.  , 

2 -52678.  , -22662.  , -27976.  , -28167.  , -52678.  , -22662.  , 
2 -279 76.  , -2816?.  , 46226.  , 25287.  , 25924.  , 25924.  , 

2 17586.  , 17586.  , 25427.  , 8464.  , 17458.  , 17458.  , 

2 25800.  , 25880.  , 46226.  , 22891.  , 24822.  , 24822.  , 

2 -52678.  , -22662.  , -27976.  , -28167.  , 8.  , 

2 12088  , 2928.  , 11440.  , 4560.  , 10880.  , 5128.  , 

2 7908.  , 8000.  , 9626.  , 2285.  , 9850.  , 2971.  , 

2 8594.  , 4427.  , 6211.  , 6511.  , 22968.  , 6220.  , 

2 28640.  , 18280.  , 25040.  , 12240.  , 20808.  , 28008.  , 

2 22000.  , 22008.  , 25680.  , 7768.  , 21920.  , 11608.  , 

2 28720.  , 14228.  , 25848.  , 22000.  , 22080.  , 16560.  , 

2 42700.  , 6200.  , 27540.  , 12460.  , 22488.  , 17528.  , 

2 29848.  ,20160.  ,44080.  ,9880.  ,40800.  ,12480.  , 
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2 26000.  ,15400.  ,21400.  ,25000.  , 25000.  ,18000.  , 

2 25000.  ,25000.  ,8700.  ,8780.  ,27445.  ,-8895., 

2 21810.  , -2605.  , 16865.  , 205.  , 12725.  , 8700.  , 

2 10625.  , -4490.  , 8160.  , -2455.  , 5795.  , -805.  , 

2 27560.  ,-10268.  , 216 80.  ,- 484 0.  , 16520.  , -76  8.  , 

2 8700.  , 8708.  , 17500.  , 17500.  , 29060.  , 2050.  , 

2 27020.  , 6110.  , 22968.  , 8660.  , 21920.  , 17580.  , 

2 17508.  , 11210.  , 28000.  , 5248.  , 24048.  , 8848.  , 

2 20440.  , 11900.  , 26120.  , 20088.  , 20880.  , 14600.  , 

2 2560  0.  ,7768.  ,21920.  ,1160  8.  , 28728.  ,14228., 

2 25840.  , 22080.  , 22000.  , 22000.  , 19088.  , 19880.  , 

2 29500.  , 2500.  , 26708.  , 6288.  , 24580.  , 8200.  , 

2 22208.  , 4800.  , 28208.  , 7808.  , 27888.  , 18800.  , 

2 2 5500.  , 9 200.  , 22900.  , 11988.  , 28780.  , 1418  8.  , 

2 29000.  ,19000.  ,26508.  ,19080.,  24  988.  ,15  7 88.  , 

2 24400.  , 15950.  , 22500.  , 16100.  , 22588.  , 16488.  , 

2 12500.  , -18700.  , 10208.  , -15200.  , 7588.  , -12580.  , 

2 -160  , - 4840.  ,-24  0.  ,-4600.  ,-640.  ,-4200.  , 

2 -25  0 0.  ,-2500.  ,25000.  , 25008.  ,21250.  ,1750., 

2 28000.  , 4750.  , 25000.  , 7758.  , 41250.  , 8750.  , 

2 27750.  , 12000.  , 24500.  , 15258.  , 58208.  , 19958.  , 

2 46700.  , 22458.  , 42700.  , 26450.  , 41220.  , 12780.  , 

2 29110.  , 14620.  , 25270.  , 16500.  , 25800.  , 25008.  , 

2 16000.  , 16008.  , 25458.  , 7228.  , 22969.  , 9820.  , 

2 28778.  , 9528.  , 22550.  , 6980.  , 20578.  , 8220.  , 

2 18598.  , 9778.  , 25828.  , 7702.  , 22247.  , 9296.  , 

2 21155.  , 9894.  , 16000.  , 16808.  , 25580.  , 25508.  , 

2 28220.  , 12788.  , 24740.  , 16268.  , 21980.  , 18788.  , 

2 29240.  , 21660.  , 22748.  , 19100.  , 21500.  , 28148.  , 

2 29660.  , 21268.  , 27660.  , 25508.  , 28008.  , 20880.  , 

2 4212.  , 1288.  , 4088.  , 1512.  , 2864.  , 1726.  , 

2 2800  , 2880.  , 29660.  , 21260.  , 25588.  , 25580.  , 

2 16000  ,16080.  ,20778.  ,18524.  ,16000.  ,16008.  , 

2 25500.  , 25508.  , 29660.  , 21260.  , 28080.  , 20088.  , 

2 2864  , 1726.  , 2880.  , 2888.  , 2864.  , 1726.  , 

2 2808.  , 2800.  , 29668.  , 21268.  , 25580.  , 25580.  , 

2 16000.  , 16080.  , 20778.  , 18524.  , 16008.  , 16088.  , 

2 25500.  , 25508.  , 29660.  , 28780.  , 20008.  , 28800.  , 

2 2864  , 1726.  , 2800.  , 2800.  , 8.  , 

4 -21424.  , -695  5.  , -20298.  , -8891.  , -19162.  , -9084.  , 

4 -12579.  , -14195.  , -28165.  , -7085.  , -18928.  , -8211.  , 
4 -17985.  , -9265.  , -12788.  , -12625.  , 4828.  , 22677.  , 

4 7722.  , 20824.  , 10125.  , 17974.  , 12608.  , 12608.  , 

4 10102.  , 10102.  , 12981.  , 5842.  , 12985.  , 6965.  , 

4 11970.  , 7761.  , 11128.  , 10086.  , 10006.  , 8415.  , 

4 5250.  , 1999.  , 4798.  , 2551.  , 4245.  , 2884.  , 

4 4108.  , 2241.  , 2272.  , 2929.  , 2426.  , 2875.  , 

4 2580.  , 2827.  , 2572.  , 2675.  , 2675.  , 2786.  , 

4 2754.  , 2754.  , 49857.  , 49857.  , 116694.  , -12826.  , 

4 96577.  , 5848.  , 78924.  , 19806.  , 64144.  , 49776.  , 

4 94782.  , 8817.  , 88715.  , 28282.  , 67272.  , 29761.  , 

4 116505. , -11091. , 96728  , 7482. , 79257. , 21211. , 

4 49695.  , 49695.  , 15810.  , 15818.  , 19425.  , 11456.  , 

4 18889.  , 12294.  , 17878.  , 12177.  , 17244.  , 15889.  , 

4 15889.  , 12959.  , 16279.  , 9191.  , 15510.  , 9981.  , 

4 14720.  , 10652.  , 12772.  , 12428.  , 12420.  , 11245.  , 
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4 12981.  , 5842.  , 12985.  , 6965.  , 11978.  , 7761.  , 

4 11128.  , 18886.  , 18882.  , 18882.  , 26685.  , 26685.  , 

4 21866.  , -1947.  ,18588.  ,528.  ,16648.  , 2281.  , 

4 29168.  , 14829.  , 26512.  , 16685.  , 24288.  , 18622.  , 

4 61961.  , 28778.  , 59659.  , 41871.  , 57712.  , 42819.  , 

4 94757.  ,26599.  ,77717.  ,26599.  ,66812.  ,4186., 

4 62484.  , 5818.  , 57278.  , 6822.  , 58454.  , 8877.  , 

4 68574  , 54148.  , 67148.  , 55671.  , 65886.  , 56926.  , 

4 75862.  , 47748.  , 74812.  , 49149.  , 72262.  , 58988.  , 

4 61222.  , 61222.  , 14964.  , 14964.  , 8925.  , 4888.  , 

4 8488.  , 5228.  , 8859.  , 5641.  , 17226.  , 12769.  , 

4 16825.  , 12225.  , 16279.  , 12681.  , 26967.  , 22725.  , 

4 26476.  , 22216.  , 26855.  , 22627.  , 28752.  , 4258.  , 

4 28626.  , 5868.  , 25827.  , 6868.  , 14962.  , 14962.  , 

4 14651.  ,14651.  ,22781.  ,6588.  ,21229.  , 8114., 

4 19261.  , 8586.  , 28668.  , 5984.  , 18798.  , 7184.  , 

4 16912.  , 8558  , 22726.  , 6546.  , 21275.  , 8152.  , 

4 19297.  , 8624.  , 14628.  , 14628.  , 747.  , 747.  , 

4 -2189.  , 2789.  , -1282.  , 2982.  , -662.  , 2298.  , 

4 -58.  , 1728.  , 2528.  , -471.  , 2869.  , -258.  , 

4 1692.  , -28.  , 1282.  , 848.  , 9472.  , 9472.  , 

4 -8819.  , -2624.  , -8261.  , -2892.  , -7982.  , -2558.  , 

4 -5274.  , -5727.  , 1692.  , -28.  , 922.  , 922.  , 

4 14824.  , 14824.  , 19261.  , 9521.  , 14628.  , 14628.  , 

4 747.  , 747.  , 1692.  , -28.  , 9472.  , 9472.  , 

4 -7982.  , -2558.  , -5274.  , -5727.  , -7982.  , -2558.  , 

4 -5274.  , -5727.  , 1692.  , -28.  , 922.  , 922.  , 

4 14824.  , 14824.  , 19261.  , 9521.  , 14628.  , 14628.  , 

4 747.  ,747.  , 1692.  ,-142.  ,94 72.  ,94  72.  , 

4 -7982.  , -2558.  , -5274.  , -5727.  , 8.  , 

8 -472.  , -152.  , -447.  , -178.  , -422.  , -288.  , 

8 72546.  , -212.  , -414.  , -145.  , -289.  , -178.  , 

8 -269.  , -198.  , 82962.  , -288.  , 182782.  , -125727.  , 

8 122589.  , -79727.  , 91762.  , -44174.  , 68297.  , 68297.  , 

8 42669.  , 42669.  , 51685.  , -15276.  , 42824.  , -6848.  , 

8 25127.  , 581.  , 28218.  , 18974.  , 18974.  , 5889.  , 

8 89828.  , -75752.  , 62556.  , -48488.  , 48154.  , -26878.  , 

8 28466.  , -14298.  , 26981.  , -9689.  , 22719.  , -6124  , 

8 18527.  , -2998.  , 12728.  , 7828.  , 7828.  , -288.  , 

8 25924.  ,25924.  ,8.  ,8.  ,8.  ,8.  ,8.  ,8.  ,8.  ,8.  ,8.  ,8.  , 

8 8.  , 8.  , 8.  , 8.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 

8 0.  , 8.  , -15450.  , -15458.  , 15197.  , -11265.  , 

8 12121.  , -8152.  , 10888.  , -5557.  , 7922.  , 2426.  , 

8 2426.  , -2962.  , 8547.  , -11852.  , 6881.  , -9611.  , 

8 2829.  , -7786.  , 1149.  , -2662.  , -2662.  , -6824.  , 

8 51685.  , -15276.  , 42824.  , -6848.  , 25127.  , 581.  , 

8 28218.  , 18974.  , 27595.  , 27595.  , 8 , 8., 

8 8.  ,0.  ,0.  ,0.  ,8.  ,8.  ,8.  ,8.  ,8.  ,8.  ,8.  ,8.  ,0.  ,0.  ,0.  ,0.  ,0.  , 0.  ,0.  , 0.  , 

8 0.  , 0.  , 8.  , 8.  , 8.  , 8.  , 8.  , 8.  , 8.  , 8.  , 8.  , 8.  , 8.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 

8 0.  , 0.  , 0 , 0.  , -198.  , -190.  , 22186.  , -19274.  , 

8 17619.  , -15858.  , 12482.  , -18841.  , 29855.  , -15822.  , 

8 24925.  , -11255.  , 28268.  , -6687.  , 24770.  , -7745.  , 

8 29851.  , -2826.  , 25624.  , 1298.  , 17691.  , -222.  , 

8 16245.  , 222.  , 12799.  , 1456.  , -280.  , -288.  , 

8 -12877.  , -12877.  , 29251.  , -16259.  , 22886.  , -11998.  , 

8 17572.  ,-18745.  ,25512.  ,-8286.  ,29940.  ,-4587.  , 
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8 24267.  , -45'4.  , -214514.  , -247428.  , -219825.  , -244256  , 

8 -222014.  , -242451. , -16442. > -16442.  , -115222.  , -115222  , 

8 22197.  , -212285.  , -1259.  , -178928.  , -27794.  , -154708.  , 

8 -52175. , -127012. , -2122. , -158420. , -26028. , -147217. , 

8 -45681. , -125260. , -67022. , -98094. , -222281. , -222281  , 

8 -294.  , -8  7.  , -278.  , -102.  , -262.  , -118.  , 

8 55692.  , -191.  , -45681.  , -125268.  , -64956.  , -64956.  , 

8 27520.  , 27520.  , 17572.  , -8229.  , -16442.  , -16442.  , 

8 -115222. , -115222. , -45681. , -125268. , -222281. , -222281. , 

8 -262.  » -118.  , 55692.  , -191.  , -262.  , -118.  , 

8 55692. , -191. , -45681. , -125260. , -64956. , -64956  , 

8 27528.  , 27528.  , 17572.  , -8229.  , -16442.  , -16442.  , 

8 -115222. , -115222. , -45681. , -141228. , -222281. , -222281  , 

8 -262.  , -118.  i 55692.  , -191.  >8.  , 

9 0.  ' 0 » 0.  / 0.  / 0.  < 0.  / 8.  > 8.  , 8.  , 0.  , 0.  , 0.  , 8.  , 0.  , 0.  , 0.  , 0 , 0 , 0 , 0 , 

9 0 , 0.  , 0.  , 0.  , 5420.  , 5420.  , 6588.  , -1921.  , 5287.  , -759.  , 

9 4419.  , 62.  , 2548.  , 2286.  , 2286.  , 740.  , 

9 11297.  , -9527.  , 7867.  , -6097.  , 5849.  , -2279.  , 

9 2579.  , -1809.  < 2282.  , -1218.  , 2857.  , -771.  , 

9 2221.  , -277.  , 1726.  , 885.  , 885.  , -25.  , 

9 2202.  , 2282.  , -6222.  , -6222.  , -22161.  , -17982.  , 

9 -29950. , -19978. , -28810. , -21512. , -26285. , -24886. , 

9 -29626. , -27865. , -27781. , -29448. , -25862. , -20728. , 

9 -44822.  , -121882. , -57528. , -118410. , -69276. , -109844  , 

9 -42279.  ; -4  2279.  , -1986.  , -1986.  , 1911.  , -1416.  , 

9 1650.  , -1025.  , 1258.  , -699.  , 997.  , 422.  , 

9 422.  , -272.  , 1075.  , -1490.  , 764.  , -1208.  , 

9 482.  » -968.  , 144.  , -224.  , -224.  , -757.  , 

9 6509.  , -1921.  ,5287.  ,-759.  ,4419.  ,62.  , 

9 2548.  , 2286.  , 4771.  , 4771.  , 72125.  , 72125.  , 

9 82912.  ,-4612.  , 72487.  ,4812.  ,66881.  ,11 545., 

9 102  722.  , 7117.  , 92624.  , 17216.  , 84  545.  , 24622.  , 

9 120762.  , 22562.  , 112010.  , 41215.  , 184602.  , 48721.  , 

9 118002.  , 54920.  , 102222.  , 54920.  , 92128.  , 24182  , 

9 88984.  , 25680  , 82207.  , 26626.  , 76999.  , 28519.  , 

9 125957.  , -47857.  , 117769.  , -27722.  , 101855.  , -11818.  , 

9 70152. , 19884. , 68218. , 22462. , 64996. , 25684  , 

9 27028.  , 27828.  , -209.  , -209.  , 26052.  , -21221.  , 

9 286  2 8.  , - 24  4 6 9.  , 217  79.  , -17618.  , 48514  , -25  712.  , 

9 40520.  , -18289.  , 22098.  , -10867.  , 56581.  , -12586  , 

9 48507.  , -4592.  , 41656.  , 2258.  , 28748.  , -525.  , 

9 26299.  , 278.  , 22422.  , 2266.  , -455.  , -455.  , 

9 -1687.  , -1687.  , 2691.  , -2844.  , 2902.  , -1588.  , 

9 2210.  ,-1250.  ,4  466.  ,-1044.  ,2765.  ,-566.  , 

9 2064.  , - 57.  , - 26978.  , -21117.  , -27546.  , - 20721  , 

9 -2804  7.  ,-20617.  , -211 8.  ,-2118.  ,8.,0., 

9 0 * 0 , 8.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0 , 0 , 0 , 0 , 0 , 0 ,0  t 

9 0 , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 

9 2512.  , 2512.  , 2210.  , -1025.  , -2118.  , -2118.  , 

9 0 ,0.  ,0.  ,0.  ,0.  ,0.  ,0.  ,0.  ,0.  , 0 . ,0.  ,0.  ,0.  ,0  ,0.  ,0  ,0  ,0  , 

9 2512.  , 2512.  , 2210.  , -1025.  , -2118.  , -2118.  , 

9 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 0.  , 

2 -90581.  , -29292.  , -85782.  , -24192.  , -88982.  , -28292.  , 

2 -59987.  , -59987.  , -129699.  , -45569.  , -121811.  , -52457.  , 

2 -115677.  , -59591.  , -87624.  , -87624.  , -42288.  , -10284.  , 

2 -27198.  , -15142.  , -22872.  , -18818.  , -26819.  , -26819  , 

2 -7248.  , -7248.  , -12821.  , -266.  , -12842.  , -2222.  , 
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2 -10469.  , -2526.  , -9104.  , -7248.  , -7248.  , -4619.  , 

2 22479.  , -27080.  , 12669.  , -27270.  , 4611.  , -19212.  , 

2 407.  , -15008.  , -14014.  , -1646.  , -12601.  , -2847.  , 

2 -11187.  ,-2908.  ,-9562.  ,-7200.  ,-7208.  , -4826.  , 

2 -7200.  , -7200.  , 18071.  , 18071.  , 27846.  , -496.  , 

2 21901.  , 5089.  , 26684.  , 9214.  , 22217.  , 18071.  , 

2 25280.  , 2660.  , 20190.  , 7928.  , 25220.  , 11288.  , 

2 27665.  , -2129.  , 21492.  , 2654.  , 26076.  , 7927.  , 

2 18071. , 18071. , -6025. , -6025. , -10012. , -1862. , 

2 -9210.  ,-2116.  , -8258.  , -2994.  , -7556.  , -6825.  , 

2 -6025.  , -2871.  , -28858.  , -2789.  , -25698.  , -5581.  , 

2 -22817.  , -8022.  , -19270.  , -14487.  , -14487.  , -10178.  , 

2 -12821.  , -266.  , -12042.  , -2222.  , -10496.  , -2526.  , 

2 -9104.  , -7248.  , -7248.  , -7248.  , 22445.  , 22445.  , 

2 70962.  , -20048.  , 61161.  , -10247.  , 52468.  , -2246.  , 

2 82151.  , -17268.  , 71650.  , -6759.  , 62249.  , 941.  , 

2 87725.  , -2975.  , 78624.  , 5125.  , 70922.  , 12826.  , 

2 60408.  , 22445.  , 52411.  , 22445.  , 48928.  , 22220.  , 

2 47541.  , 22919.  , 45025.  , 24228.  , 42229.  , 25177.  , 

2 72724.  , -20841.  , 64226.  , -10856.  , 56102.  , -2622.  , 

2 29905  , 22564.  ,29661.,  22889.  , 29254.  , 24296.  , 

2 26725  , 26725. , 25604. , 25604. , 29199. , -9782. , 

2 22802.  , -4800.  , 28822.  , 180.  , 52586.  , -1277.  , 

2 46774.  , 4019.  , 41278.  , 9415.  , 62585.  , 12258.  , 

2 57774  , 19169.  ,52792.  ,24150.  ,46524.,  11222.  , 

2 42691.  , 12211.  , 28897.  , 14708.  , 25604.  , 25604.  , 

2 -1552.  , -1552.  , -2681.  , 295.  , -2121.  , 14.  , 

2 -2628.  , -97.  , 12215.  , 1255.  , 11707.  , 2284.  , 

2 10199.  » 2480.  , -6691.  , -2486.  , -6114.  , -2879.  , 

2 -5606.  ,-29 95.  ,-1552.  ,-1552.  ,-17725.  ,-17725., 

2 206.  , -25757.  , -4626.  , -20824.  , -8529.  , -27251.  , 

2 -12281. , -22169. , -22090. , -5791. , -28912. , -7721. , 

2 -25482.  , - 9819.  ,-21752.  ,-17725.  ,-19156.  ,-19156.  , 

2 -49278.  ,-14747.  ,-46806.  ,-17211.  ,-44241.  ,-19876.  , 
2 -22859.  , -22859.  , -25482.  , -9819.  , -17725.  , -17725.  , 

2 -1552.  , -1552.  ,-2628.  ,-221.  ,-1552.  ,-1552.  , 

2 -17725.  , -17725.  , -25482.  , -9819.  , -19156.  , -19156.  , 

2 -44241.  , -19876.  , -22059.  , -22059.  , -44241.  , -19876.  , 

2 -22059.  , -22059.  , -25482.  , -9819.  , -17725.  , -17725.  , 

2 -1552.  , -1552.  , -2628.  , -221.  , -1552.  , -1552.  , 

2 -17725.  , -17725.  , -25482.  , -8775.  , -19156.  , -19156.  , 

2 -44241.  , -19876.  , -22059.  , -22059.  , 0.  , 

2 -9845.  , -2194.  , -9222.  , -2716.  , -8802.  , -4172.  , 

2 -6520.  , -6520.  , -9899.  , -2478.  , -9297.  , -4080.  , 

2 -8829.  ,-4548.  ,-6689.  ,-6689.  ,-11562.  ,-1129.  , 

2 -9871.  , -2680.  , -8461.  , -2878.  , -6487.  , -6487.  , 

2 -6421.  , -642.1.  , -12705.  , 159.  , -11005.  , -1614.  , 

2 -9526.  , - 2871.  ,-8195.  ,-6421.  ,-6421.  ,-2907., 

2 -6790.  , -6809.  , -6792.  , -6806.  , -6796.  , -6802.  , 

2 -6797.  , -6802.  , -12969.  , -762.  , -12468.  , -2045.  , 

2 -10950.  , -2177.  , -9215.  , -6800.  , -6880.  , -4158.  , 

2 -6800.  ,-6800.  ,-6188.  ,-6188.  ,-16716.  ,2849.  , 

2 -12527.  ,855.  ,-10728.  , -1257.  ,-8285.  ,-6188.  , 

2 -9818.  , 769.  , -8086.  , -655.  , -6420.  , -1818.  , 

2 -16752.  , 2521.  , -12607.  , 578.  , -10847.  , -1604.  , 

2 -6108.  , -6108.  , -2254.  , -2254.  , -4262.  , 256.  , 

2 -2988.  , -274.  , -2276.  , -717.  , -2022.  , -2254.  , 
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2 -2254  , -1161.  , -12860.  , -537.  , -12249.  , -2001.  , 

3 -10765.  , -3246.  , -9028.  , -6540.  , -6540.  , -4344.  , 

3 -12705.  < 159.  , -11005.  , -1614.  , -9526.  , -2871.  , 

3 -8195  . -6421. , -6421. , -6421. > -3880. , -3880. , 

3 2098  < -2681.  , 1583.  / -2166.  , 1179.  , -1799.  , 

3 -1269.  , -6490.  , -1820.  , -5939.  , -2262.  , -5534.  , 

3 -6513.  , -11330.  , -6991.  , -10852.  , -7396.  » -10448.  , 
3 -18234.  , -3888.  , -14645.  , -3880.  , -12348.  , 856.  , 

3 -11631.  , 497.  , -10339.  , 282.  , -8903.  , -147.  , 

3 -4290.  , 4887.  , -3378.  , 3918.  , -2580.  , 3120.  , 

3 -1405.  , 1945.  , -1276.  , 1773.  , -1061.  , 1558.  , 

3 270.  , 270.  , -1761.  , -1761.  , 861.  , -288.  , 

3 735.  , -171.  , 618.  , -54.  , -1127.  , -2394.  , 

3 -1263.  , -2268.  , -1390.  , -2141.  , -3633.  , -4812.  , 

3 -3769.  , -4676.  , -3886.  , -4559.  , -5692.  , 941.  , 

3 -5159.  , 736.  , -4258.  , 286.  , -1761.  , -1761.  , 

3 -6925.  , -6925.  , -14463.  , -21.  , -12479.  , -1370.  , 

3 -10733.  , -1767.  , -7639.  , -177.  , -6698.  , -824.  , 

3 -5741.  , -1514.  , -14678.  , -205.  , -12690.  , -1557.  , 

3 -10940.  , -1955.  , -6925.  , -6925.  , -3469.  , -3469.  , 

3 -3208.  , -3729.  , -3279.  , -3658.  , -3336.  , -3606.  , 

3 -3390.  , -3547.  , -11306.  , 2618.  , -9175.  , 1629.  , 

3 -7425.  , 563.  , -5523.  , -3469.  , -3656.  , -3656.  , 

3 -3725.  , -1112.  , -3531.  , -1386.  , -3338.  , -1499.  , 

3 -2419.  , -2419.  , -7425.  , 563.  , -3469.  , -3469.  , 

3 -6925.  , -6925.  , -18733.  , -2568.  , -6925.  , -6925.  , 

3 -3469.  » -3469.  , -7425.  , 563.  , -3656.  , -3656.  , 

3 -3338.  , -1499.  , -2419.  , -2419.  , -3338.  , -1499.  , 

3 -2419.  , -2419.  , -7425.  , 563.  , -3469.  , -3469.  , 

3 -6925.  , -6925.  , -10733.  , -2568.  , -6925.  , -6925.  , 

3 -3469.  , -3469  , -7425.  , 1096.  , -3656.  , -3656.  , 

3 -3338.  , -1499.  , -2419.  , -2419.  , 0.  , 

4 2183.  , 708.  , 2067.  , 824.  , 1952.  , 925.  , 

4 1446.  , 1446.  , 1916.  , 673.  , 1800.  , 789.  , 

4 1709.  , 880.  . 1295.  , 1295.  , 2173.  , 737.  , 

4 1940.  , 951.  , 1746.  , 1116.  , 1475.  , 1475.  , 

4 1535.  , 1535.  , 2897.  , 945.  , 1945.  , 1104.  , 

4 1813.  , 1217.  , 1693.  , 1535.  , 1535.  , 1389.  , 

4 277.  , 2110.  , 579.  , 1888.  , 827.  , 1560  , 

4 956.  , 1431.  , 1692.  , 774.  , 1587.  , 863.  , 

4 1482.  , 942.  , 1362.  , 1194.  , 1194.  , 1018.  , 

4 1194.  , 1194.  , 1816.  , 1816.  , 4189.  , -411.  , 

4 3 4 75.  , 258.  , 284  9.  , 753.  , 2325.  , 1816.  , 

4 -8813.  , 690.  , -7258.  , -588.  , -5772.  , -1625.  , 

4 4157.  , -699.  , 3404.  , 7.  , 2743.  , 529.  , 

4 1816.  , 1816.  , -2022.  , -2022.  , -3825.  , 232.  , 

4 -3507.  , -245.  , -3029.  , -642.  , -2711.  , -2022.  , 

4 -2022.  , -1040.  , 2156.  , 831.  , 1995.  , 976.  , 

4 1850.  , 1100.  , 1675.  , 1428.  , 1428.  , 1289.  , 

4 2097.  , 945.  , 1945.  , 1104.  , 1813.  , 1217.  , 

4 1693.  , 1535.  , 1535.  , 1535.  , 3816.  , 3816.  , 

4 2401.  , 4373.  , 2613.  , 4161.  , 2788.  , 4089.  , 

4 2738.  , 4893.  , 2966.  , 4665.  , 3148.  , 4498.  , 

4 3429.  , 5417.  , 3627.  , 5219.  , 3793.  , 5053.  , 

4 5530.  , 3816.  , 5101.  , 3816.  , 4827.  , 3250.  , 

4 4741.  , 3293.  , 4587.  , 3318.  , 4415.  , 3378.  , 

4 1986.  , -1524.  , 1637.  , -1153.  , 1332.  , -848.  , 
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4  -1261.  , 1745.  , -1146.  , 1591.  , -952.  , 1298.  , 

4 242.  , 242.  » -1581.  , -1581.  , 772.  , -259.  , 

4 659.  , -154.  , 554.  , -49.  , -1812.  , -2149.  , 

4 -1124.  , -2826.  , -1248.  , -1922.  , -2261.  , -4219.  , 

4 -2282.  , -4197.  , -2488.  , -4092.  , -5109.  , 844.  , 

4 -4621.  , 660.  , -2822.  , 256.  , -1581.  , -1581.  , 

4 1082.  , 1082.  , 1251.  , 929.  , 1206.  , 959.  , 

4 1167.  , 967.  , -6857.  , -160.  , -6005.  , -741.  , 

4 -5154.  , -1260.  , 1856.  , 762.  , 1816.  , 791.  , 

4 981.  , 799.  , 1082.  , 1082.  , 4185.  , 4185.  , 

4 24  72.  , 4897.  , 26  67.  , 4 782.  , 2822.  , 4561.  , 

4 2969.  , 4400.  , 4668.  , 2809.  , 4526.  , 2870.  , 

4 4428.  , 2926.  , 4211.  , 4185.  , 4016.  , 4016.  , 

4 -224  2.  , -9  98.  , -2169.  , -1172.  , -2995.  , -1246.  , 

4 -2171.  , -2171.  , 4428.  , 2926.  , 4185.  , 4185.  , 

4 1082.  . 1082.  , 1167.  , 985.  , 1082.  , 1082.  , 

4 4185.  , 4185.  , 4428.  , 2926.  , 4816.  , 4016.  , 

4 -2995.  , -1246.  , -2171.  , - 2171.  , -2995.  >-1246.  , 
4 -2171.  , -2171.  , 4428.  , 2926.  , 4185.  , 4185.  , 

4 1082.  , 1082.  , 1167.  , 985.  , 1082.  , 1882.  , 

4 4185.  , 4185.  , 4428.  , 2902.  , 4016.  , 4816.  , 

4 -2995.  , -1246.  , -2171.  , -2171.  , 8.  , 


5 

-70452 

. , 

- 

22862.  , -66719.  , 

-26594. , 

- 

62987. 

, -29860. , 

5 

-46657 

. , 

46657.  , -89062.  , 

-21292.  , 

- 

82647. 

, -26708.  , 

5 

- 7 9425 

. , 

48921. , -68178. , 

-68178. , 

5 

0 ,0., 

0. 

, 

0.,0.,0.,0.,0., 

0.  , 0.  , 0. 

, 

0.  , 0.  , 

0.  , 0.  , 0.  , 

6.  , 

0.  , 

5 

0.  , 0.  , 

0. 

, 

0.  ,0.  ,0.  ,0.  ,0., 

0.  , 0.  , 0. 

, 

0.  , 0.  , 

0.  , 0.  , 0.  , 

0.  , 

0.  , 

5 

0 ,0., 

0. 

, 

0.  , 0.  , 0.  , 0.  , 0.  , 

0.  , 0.  , 0. 

, 

0.  , 0.  , 

0.  , 0.  , 0.  , 

0.  , 

0.  , 

5 

0.  , 0.  , 

0. 

, 

0.  , 0.  , 0.  , 0.  , 0.  , 

0.  , 0.  , 0. 

, 

0.  , 0.  , 

0.  i 0.  , 0.  , 

0.  , 

0.  , 

5 

0 ,0., 

0. 

, 

0.  ,0.  ,0./0.  ,0.  , 

0.  , 0.  , 0. 

, 

0.  , 0.  , 

0.  , 0.  , 0.  , 

0.  , 

0.  , 

5 

0.  , 0.  , 

0. 

, 

0.  ,0.  ,0.  ,0.  ,0.  , 

0.  , 0.  , 0. 

, 

0.  , 0.  , 

0.  , 0.  , 0.  , 

0.  , 

0.  , 

5 

0.  , 0.  , 

0. 

, 

0.  , 0.  , 0.  , 0.  , 0.  , 

0.  , 0.  , 0. 

, 

0.  , 0.  , 

0.  , 0.  , 0.  , 

0.  , 

0.  , 

5 

0 ,0., 

0. 

, 

0.,0.,0.,0.,0., 

0.  , 0.  , 0. 

, 

0.  , 0.  , 

0.  , 0.  , 0.  , 

0.  , 

0.  , 

5 

0 ,0., 

0. 

, 

0.,0.,0.,0.,0., 

0.  , 0.  , 0. 

, 

0.  , 0.  , 

8.  , 0.  , 0.  , 

0.  , 

0.  , 

5 

0 ,0., 

0. 

, 

0.  , 0.  , 0.  , 0.  , 0.  , 

0.  , 0.  , 0. 

, 

0.  , 0.  , 

0.  , 0.  , 0.  , 

0.  , 

0.  , 

5 

0 ,0., 

0. 

, 

0.  , 0.  , 0.  , 0.  , 0.  , 

0.  , 0.  , 0. 

, 

0.  , 0.  , 

0.  , 0.  , 0.  , 

0.  , 

0.  , 

5 

0 ,0., 

0. 

, 

0.  , 0.  , 0.  , 0.  , 0.  , 

0.  , 0.  , 0. 

, 

0.  , 0.  , 

0.  , 

5 

-45842 

. , 

- 

12692.  , -42461.  , 

-16074. , 

- 

41079. 

, -18456. , 

5 

-29768 

. , 

- 

29768.  , 8.  , 0.  , 0. 

, 0 . , 0 . , 0 

, 0.  , 0. 

, 0.  , 8.  , 0. 

, 0. 

, 

5  0.  , 0.  , 8.  , 0.  , -41079.  , -18456.  , -29768.  , -29768.  , 

5  -41079. , -18456. , -29768. , -29768. , 

5  0.  I 0.  t 0.  I 0.  , 0 . I 6.  , 0 . , 0 . #0.  i 6.  , 0 . , 0 . #0.  , 0 . #8.  *0.  t 

5 -41079.  , -18456.  , -29768.  , -29768.  , 8.  , 

6 -42624.  , -14156.  , -41212.  , -16  467.  / - 29882.  , -18489.  , 

6 -28898.  , -28890.  , -59285.  , -20881.  , -55684.  , -24482.  , 

6  -52884. , -27202. , -40002. , -40002. , -20252. , 11747. , 

6  -15062.  , 6990.  , -10729.  , 2215.  , -4685.  , -4685.  , 

6 -15887.  , -15887.  , -22252.  , 2488.  , -28626.  , -2528.  , 

6 -24517.  ,-6022.  ,-20  818.  ,-15887.  ,-15887.  ,-8988., 

6 -49272.  , 14928.  , -28698.  , 4255.  , -20812.  , -4228.  , 

6 -25480.  , -8862.  , -26851.  , -599.  , -22708.  , -4128.  , 

6 -28565.  , -7228.  , -22800.  , -17171.  , -17171.  , -9921.  , 

6 -17171.  ,-17171.  ,-11792.,  -11792.  , -22217.  , 74  7 4.  , 

6 -26147.  , 1681.  , -20722.  , -2599.  , -16199.  , -11792.  , 

6 1896.  , 1950.  , 1905.  , 1942.  , 1914.  , 1927.  , 

6 -22892.  , 9516.  , -25640.  , 2459.  , -19978.  , -1817.  , 

6 -11792.  , -11792.  , -16508.  , -16508.  , -28169.  , 568.  , 
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6 -27758.  , -2047.  , -24142.  , -6661.  , -21721.  , -16508.  , 

6 -16508.  , -9074.  , -42958.  , -746.  , -28725.  , -5494.  , 

6 -22986.  , -9521.  , -28288.  , -20215.  , -20215.  , -12092.  , 

6 -22252.  , 2480.  , -28626.  , -2520.  , -24517.  , -6022.  , 

6 -20818.  , -15887.  , -15887.  , -15887.  , -24607.  , -24607.  , 
6 -29919.  , 7280.  , -24825.  , 2286.  , -20822.  , -1251.  , 

6 -50440.  , 1226.  , -44982.  , -4221.  , -40616.  , -8222.  , 

6 -59929.  , -12265.  , -55199.  , -16995.  , -51197.  , -20997.  , 

6 -57957.  , -24607.  , -49619.  , -24607.  , -44282.  , -12601.  , 

6 -42616.  , -14425.  , -29614.  , -14925.  , -26279.  , -15926.  , 

6 -52209.  , -11909.  , -49195.  , -16280.  , -45595.  , -19880.  , 

6 -40778.  , -24697.  , -40159.  , -25522.  , -29128.  , -26552.  , 

6 -22728.  , -22728.  , -11262.  , -11262.  , -12564.  , 5962.  , 

6 -11412.  » 2977.  , -9427.  , 1991.  , -22119.  , -605.  , 

6 -19802.  , -2757.  , -17651.  , -4908.  , -20265.  , -10241.  , 

6 -28048  , -12658.  , -26062.  , -14644.  , -25880.  , -1281.  , 

6 -22914.  , -2127.  , -20587.  , -2801.  , -11262.  , -11262.  , 

6 -17029.  , -17029.  , -27452.  , 1674.  , -22077.  , -1980.  , 

6 -27248.  , -2055.  , -29428.  , -278.  , -25724.  , -2897.  , 

6 -22040.  , -5584.  , -29672.  , 9029.  , -24255.  , 5422.  , 

6 -19676.  , 4260.  , -17029.  , -17029.  , -7272.  , -7272.  , 

6 -46976.  , 22222.  , -26141.  , 21297.  , -27547.  , 12551.  , 

6 -19228.  , 4584.  , -25722.  , 6889.  , -20741.  , 4571.  , 

6 -16641.  , 2076.  , -12185.  , -7272.  , -2218.  , -2218.  , 

6 -26878.  , -11015.  , -24962.  , -12921.  , -22046.  , -14847.  , 
6 -22947.  , -22947.  , -16641.  , 2076.  , -7272.  , -7272.  , 

6 -17029.  , -17029.  , -27248.  , -5205.  , -17029.  , -17829.  , 

6 -7272.  , -7272.  , -16641.  , 2876.  , -2218.  , -2218.  , 

6 -23046.  , -14847.  , -23947.  , -22947.  , -22046.  , -14847.  , 
6 -23947.  , -23947.  , -16641.  , 2076.  , -7272.  , -7272.  , 

6 -17029.  , -17029.  , -27248.  , -5285.  , -17029.  , -17829.  , 

6 -7272.  , -7272.  , -16641.  , 2222.  , -2218.  , -2218.  , 

6 -23046.  ,-14847.  ,-22947.,  -22947.  , 8.  , / 

CfiLL  fiMRV5<R) 

STOP'  END  OF  RUN' 

END 


107 


AFFDL-TR- 79- 301 1 


TT  : CRMAVSZ.  FOR 

IS  PROPORTIONAL  TO  NPONTS/280. 

C STAND  ALONE  AMAVS  FUNCTION  GENERATOR. 

C THIS  PROGRAM  MUST  BE  LINKED  AS  FOLLOWS: 

C AMAVSCAMAPRX,  RMAHLD,  AMAVS*  RMRTBL/'F/'L/’I 


C 

C PARAMETERS  ARE:  HAVSIN  RATE  =INCTM 

C HOLD  TIME  = I HLDTM 

C FLITE  NUMBER  = M 

C LAST  FLITE  =MSTOP 

C START  CVCLE  NO.  =INTCVL 

C 

c 

SUBROUTINE  AMAVS(R) 

INTEGER  CVCLE. REF 


DIMENSION  R ( 281. 11 ) . I OUT (12).  IC(11).DIFRA(11).REF(11) 
DIMENSION  CVCLE (281). PEAKLD(li), IDAT0(4> 

DIMENSION  OLDREF(ll). IDUM(11).REFNEW(11).DIFR(11) 
DIMENSION  HAVSI N( 181 ) 

C 

C 

C 

DATA  PERKLD/78204. . 77282. . 50280. . 118694. . 247420. . 

1 125957.  . 129699.  . 18224.  , 8812.  . 

1 89062.  . 59929.  / 

C 

C 

DATA  CVCLE/-2,  -2.  -1.  -1.  1.  1.  1.  1.  *2,  -2.  -1.  -1.  1,  1.  1.  1. 

1 -2.  - 2.-1.  -1.1.  1.1.  1.1.  1.-2.  -2.-1.  -1.1.1.  1.1.  1.1. 

1 -2.  - 2,-1.  -1.1.  1.1.  1.-2.  - 2.-1.  -1.1.  1.1.  1.1.1. 

1 1,  1,  1,  1.  -2.  -2,  -1,  -1,  1,  1.  1,  1,  -2.  -2,  -1,  -1,  1,  1, 

I -2,  ~2,  “1,  *1,  1,  1,  1,  1,  1,  1,  “2,  -2#  “1,  “1,  1,  1,  1,  1,  1,  1. 

1 -2,  “2,  “1,  “1,  1,  1,  1,  1,  1,  1.  -2,  -2,  “1,  “1,  1,  1,  1,  1,  1,  1,  1.  1, 
1 -2, -2, -1, -1, 1,  1. -2. -2, -1, -1,1, 1,-2, -2, -1,-1. 

1 1,  1,  1,  1,  1,  1,  1,  1,  1»  21,  1,  57,  1,  1,  - 2,  - 2,  -1,  -1, 

1 ii  1,  — 2,  — 2#  — 1,  — 1,  1,  1,  1,  1,  1,  1,  — 2,  — 2,  — 1.  — 1,  1,  1.  — 2,  — 2, 

1 -1,  -1.  1,  1,  -2,  -2,  -1.  -1,  1,  1,  1,  1,  1.  11.  1'  15'  1'  1'  1'  1' 

1 -2,  -2,  -1.  -1.  1.  1.  -2.  -2.  -1,  -1.  1.  1.  -2,  -2.  -1.  -1. 

1 1,  1,  1,  1,  1,  1.  — 2,  — 2 / — 1,  — 1,  1,  1,  1,  1.  — 2,  — 2,  — 1,  — 1, 

1 1,  1,  1,  1,  1,  1.  — 2,  — 2,  — 1,  — 1,  1,  1'  1'  1'  1'  1'  1'  1'  1'  1' 

1 1,1,1,  1,1,  1,1,  1,1,  1,1,1,—  1'—  1'—  1'—  1'  1.  1,  1.  1' 

1 -1,  -1.  -1.  -1.  -1,  -1,  -1.  "I'  “I'  "1.  ~1'  “1'  -1'  “1'  "1.  "1'  17 

C 

C 

C INITIALIZE 

1 DO  100  J=l, 11 

OLDREF(J)=0 
IOUT< J>=0 
100  CONTINUE 

IOUT<12)=600 

IDRTO<1)=0 

15  = 8 

16  = 1 

ANGLE=0. 

DO  110  J=i, 181 
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HA VS  I N ( J ) = ( 1.  -C0S( ANGLE*2.  1416/180.  ))/2. 

ANGLE=ANGLE+1. 

110  CONTINUE 

D GOTO  1 

CftLL  JD2A( I OUT ) ! SET  OUTPUT  TO  6 

D CftLL  JBERNV(IDATO) 

C 

C SET  UP  TEST  PARAMETERS 

C 

TVPE  2 

2 FORMAT  ('  AMAVS  TEST  PROGRAM' » /,  ' ENTER  TODAVS  DATE') 
ACCEPT  2 

3 FORMAT  ('  ENTER  TODAVS  DATE  ') 

54  TVPE  56 

56  FORMAT ( ' BVPASS  CHECK  MINI  ?',/, 

1'  VES=2 : N0=1' , /) 

ACCEPT  57/ NOCHEK 

57  FORMAT  < I 2) 

IF<NOCHEK.  LT.  1.  OR.  NOCHEK.  GT.  2>G0  TO  54 

15  TVPE  16 

16  FORMAT  ('  DO  VOU  NISH  TO  ENTER  TEST  PARAMETERS  ???',/, 
1'  VES  = 2 , N0*1' / /) 

ACCEPT  17, IP 

17  FORMAT (13) 

IF(IP.  GT.  2.  OR.  IP.  LT.  1)  GOTO  15 
IF(IP.  EQ.  1)  GOTO  70 

20  TVPE  21 

21  FORMAT  <'  STARTING  FLIGHT  NUMBER  ?',/) 

ACCEPT  22,  M 

22  FORMAT  (15) 

IF  <M.  LT.  1.  OR.  M.  GT.  1280)  GOTO  20 
Mi  = M 

25  TVPE  26 

26  FORMAT  ('  STARTING  SPECTRUM  STEP  NUMBER  ?' , /, 

1'  NUMBER  BETNEEN  ‘1  4 140*',/) 

ACCEPT  27,  I STP 

27  FORMAT  (15) 

IF  (ISTP.  LT.  1.  OR.  ISTP.  GT.  140)  GOTO  25 
I F < I STP.  GT.  1)  ISTP=( ISTP*2)-1 
I5TEP=I STP 

30  TVPE  21 

31  FORMAT  ('  STARTING  CVCLE  NUMBER  ?',/, 

1'  BETNEEN  ‘1  t 29*. ', /) 

ACCEPT  22,  ICVL 

32  FORMAT  (15) 

IF  ( ICVL.  LT.  1.  OR.  ICVL.  GT.  29)  GOTO  20 

35  TVPE  26 

36  FORMATS  HAVERSINE  RATE  ?',/, 

1'  NUMBER  FROM  "l  TO  200*  ',/) 

ACCEPT  27,  INCTIM 

37  F0RMAT(I5) 

IF  ( INCTIM.  LT.  1.  OR.  INCTIM.  GT.  300)  GOTO  25 

40  TVPE  41 

41  FORMAT ( ' HOLD  TIME  ?',/) 

ACCEPT  42,  IHLDTM 

42  FORMAT  (16) 

IF  (IHLDTM.  LT.  1.  OR.  IHLDTM.  GT.  22000)  GOTO  40 

4 
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5 TVPE  46 

46  FORMAT < ' NUMBER  OF  FLIGHTS  TO  BE  RUN  ?',/> 

ACCEPT  4?,  MSTOP 
4?  FORM  AT (15) 

MST0P=(MST0P+M>-1 

IF(MSTOP.  LT.  M.  OR.  MSTOP.  6T.  1280)6OTO  45 

50  TVPE  51 

51  FORMAT ( ' DO  VOU  WISH  TO  REENTER  PARAMETERS 

i'  VES  = 2 AND  NO=i',/> 

ACCEPT  52,  I DO 

52  F0RMAT(I2) 

IF<  IDO.  GT.  2.  OR.  IDO.  LT.  1)  GOTO  50 
I F < IDO.  EQ.  2)  GOTO  20 

70  IF(NOCHEK.  EQ.  1)CALL  JBERNV(IOUT) 

PAUSE'  TVPE  CARRIAGE  RETURN(CR)  TO  START' 

C 

C THE  PROGRAM  WILL  HOLD  AT  THIS  POINT  UNTIL  A CARRIAGE  RETURN 

C IS  TVPED  ON  THE  KEVBOARD 

C 

C 

140  IOUT ( 12) =1500 

CALL  JD2AU0UT)  'PRESSURIZE 

CALL  ICLK<2,  15000)  .'HOLD  FOR  PRESS. 

TVPE  90,  M 

90  FORMATS,'  STARTING  FLIGHT  ',15,/) 

142  IF< ICLK<2).  NE.  0)  GOTO  142 

C 

150  DO  700  I = 1 STEP, 281  ISTART  FUNC.  GEN. 

12  = 1 

MESAG4=0 

I F ( I . EQ.  281)12  = 0 

I F < I . EQ.  257.  AND.  ( H/10*10-M ) . NE.  0)12  = 0 
IDAT0(1)=  12 
152  INTCVL=0 

I F ( M.  GT.  Ml ) GOTO  160 

I F < I . EQ.  ISTEF'  + l.  AND.  ICVL.  GT.  1 ) I NTCVL  = < I CVL-1 ) *2 
160  NCVCLE=(CVCLE( I )-I NTCVL)  !SET  CVCLE  NO. 

I F ( I . EQ.  257.  AND.  <M/10*10-M>.  NE.  0)NCVCLE  = 1 
IF(N CVCLE.  LT. -2)G0T0  175 
IF(NCVCLE)170,  175,  180 

170  IF(CVCLE(I ).  EQ.  -1.  AND.  (M/10*10-M).  EQ.  0)GO  TO  180 

IF(CVCLE( I ).  EQ. -2.  AND. (M/100*100-M).  EQ.  0)60  TO  180 
GO  TO  700 

175  PAUSE'  MR0N6  CVCLE  NO.-  REENTER  PARAMETERS'  ! HOLD 

C 

180  IF(NOCHEK.  NE.  2) CALL  J B E R N V < I D A T 0 ) 

DO  400  J = l,ii  ! CALC.  REF.  VAL.  FOR  EACH  LOAD 

I F < R ( I , J))200, 190, 200 
190  REFNEW(J)=  0 

GO  TO  200 

200  REFNEW(J)=(R( I , J)/PEAKLD(J) >*2047. 

I F < I.  EQ.  281)REFNEW(J)=0. 

200  I F < I . EQ.  257.  AND.  <H/10*18-H>.  NE.  0 ) REF NE W < J > = 0 . 

REF( J)=ABS(REFNEW( J)-OLDREF( J) ) 

400  CONTINUE 

401  NPONTS=MAX0(REF(1), REF(2), REF(2), REF(4), 
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D 

D99 

402 

205 

405 

C 

C 

450 


500 

D 

510 

512 

520 

C 


C 

600 

D 

610 


620 

620 


60 


632 

638 

C 

640 

650 

660 

700 

D 


1 REF<5>, REF<6), REF<7), REF<8>, 

1 REF  < 9 > , REF  d0 ) , REF(ll) ) 

IF(NPONTS. EQ. 0)NPONTS=10 

INCTM  = FLOftTdNCTIM)*(FLOftT(NPONTS)/2000. )+l. 
TVPE  99/ NPONTS, INCTM 

FORMATS  NPONTS  = ',I5,'  INCTM  *',I5) 

DO  405  J = i,ii 

DIFR(J)=<REFNEW( J)-OLDREF< J)> 

CONTINUE 


DO  600  K = i, 181 
DO  500  J*i, 11 

IOUT< J)=OLDREF< J)+DIFR< J)*HAVSIN<K) 

CONTINUE 
GOTO  608 

JCVCLE=<CVCLE( I )-NCVCLE)/2+l 

CftLL  ICLKd, INCTM)  ! SET 

IF(ICLK(1). NE.  0 ) GO  TO  512 

CftLL  JD2ft( I OUT)  IOUTPUT  NEW 


RftMP  RFIT ) E 
NC.  VftLUE 


CftLL  Jft2D(IC) 

IF(IC(1).  LT.  700) CALL  AMftHLD ( I 2/  1/ M, JCVCLE/  IC,  MSTOP, 
10LDREF,  I OUT ) 


CONTINUE 
GOTO  640 

IF(NCVCLE.  GT. 1 ) GOTO  620 
DO  620  J=l, 11 
OLDREF(J)=REFNEW(J) 

I OUT  < J ) =REFNEW<  J ) 

CONTINUE 
CftLL  JD2ft( I OUT  > 

CALL  ICLK(2,  IHLDTM)  ! P L ft  T E ft  LI  TIME 

IFdPRT.  EQ.  2)  GOTO  622 
TVPE  80/ Mz 12, JCVCLE 

FORMftT  ('  FLT" , 15,  ' LVLM4,'  CVL',12) 

IF(MESftG4.  EQ.  1 ) GOTO  622 
IDflT0d)=I2  + 16284 

IF(NOCHEK.  EQ.  1 ) CftLL  JBERN V ( I DftTO ) 

MESfiG4=l 
CALL  Jft2D< I C) 

IFdCd).  LT.  700)CftLL  AMftHLD  ( I 2,  I , N,  JCVCLE,  I C,  MSTOP, 
10LDREF,  I OUT ) 

IF< ICLK(2>. NE.  0 ) GO  TO  622 

IF ( I . EQ.  257. ftND.  <H/10*10-H). NE. 0)GOTO  710 
NCVCLE=NCVCLE-1  !DEC.  CVCLE  NO. 

IF(NCVCLE)700, 700, 650 
DO  660  J=l, 11 

OLDREF( J)*OLDREF< J)+DIFR( J) 

DIFR(J)=-DIFR<J)  ! INVERT  RftMP 

CONTINUE 

GO  TO  450 

CONTINUE  ! END  OF  FLIGHT  ? 
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710 


712 


28 

22 

D 


C 

725 

D 

[>735 


* 


GOTO  720 

I OUT (12) =600  ! DEPRESSURIZE 

CRLL  JD2R< I OUT ) 

CALL  ICLK<3,8000) 

IF(ICLK<2).  NE.  0)  GOTO  712 
CRLL  JR2D ( I C ) 

IF<IC<1).  LT.  700)  CALL  RMRHLD ( 12*  I,  M*  CVCLE,  NCVCLE*  I C*  STOP, 
10LDREF*  I OUT ) 

IF<M.  NE.  MSTOP)  GOTO  725  ! LAST  FLIGHT  ? 

I OUT  (12)=  0 

GOTO  725 

CALL  JD2RU0UT) 

RETURN 


M = M + i 
I STEP=1 
GOTO  150 
RETURN 
GO  TO  140 
END 


.'ADD  1 TO  FLIGHT  COUNT 
! RESET  STEP  NO. 


112 


00000^700  00*^70000^00  0000 


AFFDL-TR-79-301 1 


TT : <5.  FOR 

C 5. FOR  PROGRAM  FOR  AMAVS  1976  VERSION  2 8-DEC-76 

BLOCK  DATA 

COMMON  I N ( 2) , I OUT ( 2 ) 

COMMON  I R C 1 2 > « I C ( 12) , I 0< 12 ) , RE ( 12) 

COMMON  ALPHA(12),BETA<12>,TEMPX(12) 

COMMON  ISTAT(12)» ITICKS 
DATA  I N/2*0/,  I OUT/2*0/ 

DATA  12/12*0//  I C/12*0/,  10/12*0/,  RE/12*0.  / 

DATA  ALPHA/12*0. /, BETA/12*0. /, TEMPX/12*0. / 

DATA  I 5TAT/6*0, 100, 5*0/,  I TICKS/100/ 

END 


C BEGIN  MAINLINE  OF  DDC 

COMMON  I N ( 2 ) , I OUT ( 2 ) 

COMMON  I R ( 1 2 ) , I C < 12 ) , 1 0 ( 12 ) , RE ( 12 ) 

COMMON  ALPHA (12), BETA (12), TEMPX<12) 

COMMON  1ST AT (12),  ITICKS 

BEGIN  EXECUTABLE  CODE 

START  CLOCK 
CALL  ICLK0( ITICKS) 

START  PRIMARY  LOOP 
CONTINUE 

OPTIONAL  DEBUG  CODE  FOR  TIMING  PURPOSES 
USE  SCOPE  TO  DETERMINE  ITTE RATION  RATE  1.  RATIO 
OF  WAIT  TO  COMPUTATION  TIME 
CALL  ISD2A(0, 12) 


SVNC  ON  TIME  BASE 
I5TAT<1)=IUAIT(> 

SECOND  PART  FOR  TIMING 

CALL  ISD2A(4000, 12) 


INSERT  DDC  CODE  AFTER  HERE 

IF(IRTP<1, IC(1)).  LT.  0)ISTAT(2)  = ISTAT(2).  OR.  2**1 
RE(1)=IR(1)-IC(1) 

IO(l)=TEMPX(l)+ALPHA<i)*RE(l) 

IF ( I ABS ( 1 0 ( 1 ) ) . GT.  8000)IO(1)-1SIGN(8000,  10(  1)) 
IF(ISD2A(I0(1), 1). LT.  0)ISTAT(2)=ISTAT(2). OR. 2**1 
C 

IF(IRTP(2,  I C < 2 ) ) . LT.  0 ) I S T A T ( 2 ) = I S T A T ( 2 ) . OR.  2**2 
RE(2)=IR(2)-IC(2) 

I0(2)=TEMPX(2)+ALPHA(2)*RE(2) 

I F<IABS<IO< 2)).  GT.  8000 ) I 0 ( 2 ) * I S I GN ( 8000,  10(2)) 
IF(ISD2A< 10(2), 2). LT. 0>ISTAT(2)=ISTAT<2). OR. 2**2 
C 

IF(IRTP(2,  I C < 2 ) ) . LT.  0)ISTAT(2)  = ISTAT(2>.  OR.  2**2 
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RE<3)=IR<3>-IC(3> 

I0<3)=TEMPX<3)+RLPHfl<3)*RE<3) 

IF<IRBS<I0<3)).GT.  8000)IO(3)=ISIGN<6000<IO(3>> 
IF<ISD2R<I0<3)<3).  LT.  0)ISTAT<3)=ISTAT<3).  OR.  2**3 
C 

IF<IRTP<4<  I C ( 4 ) ) . LT.  0)ISTRT<2)=ISTAT<2).  OR.  2**4 
RE<4)=IR(4)-IC<4) 

I0(4)=TEHPX(4)+ftLPHfi(4)*RE(4) 

I F < I RBS ( I 0 ( 4 ) ) . GT.  8000)IO(4)  = ISIGN(8000/  10(4)) 

I F < I SD2R  < I 0 < 4 ) < 4).  LT.  0)ISTAT<3)=ISTRT<3>.  OR.  2**4 
C 

IF<IRTP<5<  I C < 5 ) ) . LT.  0)I5TRT(2)=ISTAT(2).  OR.  2**5 
RE(5)=IR(5)-IC(5) 

I0(5)=TEMPX(5)+RLPHR(5)*RE(5) 

IF<IRBS(I0<5)). GT.  8000)IO<5)=ISIGN<8000, 10(5)) 
IF<I5O2R<I0<5)<5).  LT.  0)ISTRT(3)  = ISTRT(3).  OR.  2**5 
C 

IF<IRTP<6<  I C < 6 ) ) . LT.  0)ISTRT(2)=ISTRT<2).  OR.  2**6 
RE<6)«IR<6)-IC<6) 

I0<6)=TEHPX<6)+RLPHA<6)*RE<6) 

IF<  IRB5<  I0<6) ).  GT.  8000) IO<6)«ISIGN<8000,  10(6) ) 
IF<ISD2R(I0<6)<  6).  LT.  0)  I ST RT < 3 ) = I STRT < 3 ) . OR.  2**6 
C 

IF<IRTP<7<  I C < 7 ) ) . LT.  0)ISTAT(2)*ISTAT(2).  OR.  2**7 
RE<7)=IR<7)-IC<7) 

I0<7)=TEMPX(7)+RLPHfl<7)*RE(7) 

I F < I RBS  < I 0 < 7 ) ) . GT.  8000)IO<7)=ISIGN(8000<  I 0 < 7 ) ) 
IF<ISD2R<I0<7)<7).  LT.  0>ISTRT(3)=ISTAT(3>.  OR.  2**7 

C 

IF<IRTP<8<  I C < 8 ) ) . LT.  0)ISTAT(2)*ISTRT<2).  OR.  2**8 
R E < 8 ) = I R < 8 ) - I C < 8 ) 

I0<8)*TEMPX<8)+RLPHfl<8)*RE<8) 

I F<IRBS<IO<  8)).  GT.  8000)  I 0 < 8 ) * I S I GN< 8000<  I 0 < 8 ) ) 
IF<ISD2R<I0<8)<  8).  LT.  0 ) I ST AT < 3 ) = I STRT < 3 > . OR.  2**8 
C 

IF<IRTP<9< IC<9)).LT.0)ISTRT<2)=ISTflT< 2). OR. 2**9 
RE<9>=IR(9)-IC(9) 

I0<9)*TENPX(9)+RLPHR(9)*RE(9) 

IF<IRBS<I0<9)).  GT.  8000)IO(9)*ISIGN<8000<  10(9)) 

I F<ISD2R<I0< 9 )<  9).  LT.  0) I STR T < 3 > = I S T AT < 3 ) . OR.  2**9 
C 

IF<IRTP<10<  I C< 10)). LT.  0)ISTRT<2)=ISTRT<2). OR. 2**18 

RE<18)=IR<10)-IC(10) 

IO<10)=TEHPX<10)+flLPHR(10)*RE<10) 

IF(IRBS<IO<10)>.  GT.  8000)IO<10)  = ISIGN(8008<  10(10)) 

I F<ISD2R<I0< 10) < 10).  LT.  0)1 STRT < 3 ) = I STRT < 3 ) . OR. 2**10 
C 

IF<IRTP<11<  I C < 1 1 ) ) . LT.  0) ISTRT < 2 ) = ! S 7 fl  7 (2).  OR.  2**11 
RE<il)=IR<li)-!C<ll) 

IO<ll)  = TE«PX<ll)  + fli-PHR<ll)*RE<ll) 

IF(IRBS< 10(11) ).  GT.  8800)1 G(11)*ISIGN(8000<  10(11)) 
IF<IS02A<IQ<1D<  11).  LT.  0)1  STRT  (3)  *IS7RT<  3).  OR  2**11 
C 

TE1PX(1)*TE«PX<1)+BETR<1)*RE<1) 

TEMPX(2>STEMPX(2)+BETA(2)*RE<2) 
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TE  HP  X ( 2 > »TE  Is  ■<  1 3 ) + B E T A ( 2 ) *RE  <3 ) 
TEMPX<4)«TEMPX<4)+BETft<4)*RE<4> 
TEMPX<5)*TEMPX<5)+BETS(5)*RE(5) 
TEMPX<S)*TEMPX<S)-3ETft<$)*RE'6) 

TEMPXt 7 ) »TEM?X ( 7 ) +3E7A < 7 > *RE  < ?) 

7EXPX<8>«7£M?X<  8)  i-EE’A  (§>*•?.£•:  8 J 
TE!1PX0)«TEf!P;»:0)  + 3Erfl.(8>*PE{9) 

TE!-!?  <<10>«TE<1PXCi9:  -SET A < i* > *RE<1  JO 
7EMPX<ii>*TEMPX<il>+BETA<ii>*RE<it) 

C 

w 

r 

C INSERT  DDC  CODE  BEFORE  HERE 

r 

C THE  FOLlOMING  CODE  READS  CHANNEL  12  FOR  GENERAL  USE 

IF<IRTP<12<  IC(12>). LT. 8 ) I ST AT ( 2 ) * I STAT ( 2 ) . OR. 2**12 

C 

C THE  FOLLOWING  CODE  FORCES  OPEN  LOOP  OTPUT 

C FOR  CHANNEL  12  FOR  THE  AIR  PRESSURE 

I F<ISD2A<IR< 12), 12).  LT.  0 ) I STAT < 3 ) * I STAT < 3 ) . OR.  2**12 
GOTO  IB 

9999  END 


FUNCTION  IUAIT 
COMMON  I N < 2 ) » I OUT  < 2 ) 

COMMON  I R < 12 ) , I C < 1 2 ) , I 0 < 12 ) , RE  < 12 ) 

COMMON  ALPHA<12),6ETA<12>, TEMPX<12) 

COMMON  ISTAT  < 12 ) , ITICKS 
DATA  ICNT/0/ 

C 

C HANDLE  THE  DIGITAL  IN  AND  OUT  HERE 

IN<1)=IDIN<1) 

IN<2)=IDIN<2) 

CALL  I DOUT  < 1,  I OUT  < 1 ) ) 

CALL  I DOUT < 2,  I0UT<2)) 

C 

C **NOTE  LINK  ERRS  IGNORED  FOR  NOW** 

C ASSUME  SUCCESSFUL 

I HA  I T = 0 

C LINK  ROUTINES 

I F < I SND  < I N ) ) 30, 30, 20 
20  IF<ISND<)>30, 30, 20 

C NEXT  3 LINES  HANDLES  DDC/FUN  GEN  I TTERAT I ON  RATIO 

30  I CNT* I CNT-i 

I F < I CNT.  GT.  0 > GOTO  50 
I CNT* I ST  AT  <8) 

C 

IF<IREC<IN))50, 50,  40 
40  IF<IREC<))50,  50,  40 

50  CONTINUE 

C 

C CLOCK  WAIT  ROUTINE  AFTER  HERE 

C 
6 
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♦ 


0 IS=ICLK0<> 

IF<  IS.  EQ.  0)  GOTO  66 
I HA  I T = I S-i 

C NEXT  2 LINES  HANDLES  DVNAHIC  ALTERATION  OF  CLOCK  RATE 

I F ( I T I CKS.  EQ.  ISTAT(7))RETURN 
ITICKS=ISTAT (7) 

CALL  ICLK0( ITICKS) 

RETURN 

C 

END 

* 
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TT : <S.  PRO 

C S.  FOR  PROGRAM  FOR  AMAVS  1976  VERSION  3 8-DEC-76 

BLOCK  DATA 

COMMON  I N ( 2 ) » I OUT ( 2 > 

COMMON  IR(12), IC(12), 10(12), RE (12) 

COMMON  ALPHA(12>, BETA(12), TEMPX(12> 

COMMON  I ST  AT (12)/ ITICKS 
DRTfl  I N/2*0/,  I0UT/2*8/ 

DfiTR  IR/12*0/»  IC/12*8/, I 0/12*0// RE/12*0.  / 

DRTR  ALPH A/12*0. /, BETA/12*0. /, TEMPX/12*0. / 

ORTR  ISTAT/6*0, 100, 5*0/, ITICKS/100/ 

END 


C BEGIN  MRINLINE  OF  DDC 

COMMON  IN(2), I0UT(2) 

COMMON  IR<12),  I C < 12 ) , I 0 ( 12 ) , RE ( 12 ) 

COMMON  ALPHA (12), BETA (12),  TEMPX(12) 

COMMON  1ST AT (12), ITICKS 

BEGIN  EXECUTABLE  CODE 

START  CLOCK 
CALL  ICLK0( ITICKS) 

START  PRIMARY  LOOP 
CONTINUE 

OPTIONAL  DEBUG  CODE  FOR  TIMING  PURPOSES 
USE  SCOPE  TO  DETERMINE  ITTERATION  RATE  t RATIO 
OF  WAIT  TO  COMPUTATION  TIME 
CALL  ISD2A(0,12) 


SVNC  ON  TIME  BASE 
ISTRT<D<IHAIT< ) 

SECOND  PART  FOR  TIMING 

CALL  ISD2A(4000, 12) 


INSERT  DDC  CODE  AFTER  HERE 


INSERT  DDC  CODE  BEFORE  HERE 


THE  FOLLOWING  CODE  READS  CHANNEL  12  FOR  GENERAL  USE 
IF(IRTP(12,  I C < 12 ) > . LT.  0 ) I ST AT ( 2 ) = I ST AT ( 2 ) . OR.  2**12 

THE  FOLLOWING  CODE  FORCES  OPEN  LOOP  OTPUT 
FOR  CHANNEL  12  FOR  THE  AIR  PRESSURE 
IF(ISD2A(IR(12),12).LT. 0)ISTAT(3)=ISTAT(2).OR. 2**12 
GOTO  10 
9999  END 
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FUNCTION  IHRIT 
COMMON  IN<2>,  I 0 U T ( 2 ) 

COMMON  I R < 1 2 > > I C ( 12 ) , 10(12), RE(12) 

COMMON  ALPHA (12), BETA (12), TEMPX(12) 

COMMON  ISTAT(12>, ITICKS 
DATA  ICNT/0X 
C 

C HANDLE  THE  DIGITAL  IN  AND  OUT  HERE 

I N < 1 > = I D I N < 1 > 

IN(2)=IDIN(2) 

CA.LL  ID0UT<1,  IOUT(l)  ) 

CALL  I DOUT ( 2, I0UT(2) ) 

C 

C **NOTE  link:  ERRS  IGNORED  FOR  NON** 

C ASSUME  SUCCESSFUL 

I MR  I T = 0 

C LINK  ROUTINES 

IF(ISND(IN>)20, 20, 20 
20  I F < ISND< ) )20, 20,  20 

C NEXT  2 LINES  HANDLES  DDC/FUN  GEN  ITTE RATION  RATIO 

20  I CNT= I CNT-1 

I F < I CNT.  GT.  0 ) G 0 T 0 50 
ICNT=ISTRT<8) 

C 

IF<  IREC( IN) >50,  50,  40 
40  IF(IREC())50,  50,  40 

50  CONTINUE 

C 

C CLOCK  WAIT  ROUTINE  AFTER  HERE 

C 

60  IS=ICLK0() 

IF(  IS.  EG.  0)  GOTO  60 
I HRZ  T»I S-l 

C NEXT  2 LINES  HANDLES  DVNAMIC  ALTERATION  OF  CLOCK  RATE 

IFdTICKS.  EG.  ISTAT(7)  ) RETURN 
ITICKS=ISTAT(7) 

CALL  ICLK0( ITICKS) 

RETURN 

C 

END 
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TT  : <5GEN.  BRS 

100  PRINT  7 NOTE  THIS  PROGRAM  DESTROVS  S.  FOR' 

110  PRINT  ' PROCED  WITH  CAUTION' 

120  PRINT  'NUMBER  OF  CHANNELS  '; 

130  INPUT  N 

205  OPEN  'S.  FOR'  FOR  OUTPUT  AS  FILE  #2 
220  OPEN  ' S.  PRO'  FOR  INPUT  AS  FILE  #1 
230  IF  END  #1  THEN  900 
240  INPUT  # 1 : A f 
250  PRINT  # 2 : A $ 

260  IF  AfO'C  INSERT  DDC  CODE  AFTER  HERE'GO  TO  230 

320  FOR  1=1  TO  N 

322  A*  = " \Bf  = " SPRINT  #2:'C' 

325  I$=STR*<I> 

32?  A$  = 'IF<IRTP('&I$<:'i  IC('1I$  A')).  LT.  0)ISTAT(2)  = ISTAT(2).  OR  2**'  tit 
328  GOSUB  9000 

330  AM'REC' 4I»4' >=IR<'4I*t' >-IC<'*I*A' )' 

340  GOSUB  9000 

350  A$  = ' IOC'  *114' >=TEMPXC' *1$*' )+ ALPHA (' II *4' >*RE(' tltt' ) ' 

360  GOSUB  9000 

390  A $ = ' IF<IABS( I 0 < ' ft  I $ A ' )).  GT.  800  0)' 

39  5 B $ = ' IOC'  <tl  tt'  ) = ISIGN(8  000;  I0('  *1*4'  ))' 

400  GOSUB  9000 
405  B t = " 

410  A»«'IF<ISD2ft<I0(/4I»*'),'tI$A').LT.  0 ) I ST AT < 3 ) = I ST AT ( 3 ) . OR 
420  GOSUB  9000 
490  NEXT  I 

499  A$  = " \PR  INT  #2:'C' 

500  FOR  1=1  TO  N 
505  I*=STR$CI> 

510  A$='TEMPXC'  tltt' )=TEHPX('tIft' )+BETAC'4I$4' )*RE('4I<4' )' 

520  GOSUB  9000 
550  B$  = " 

590  NEXT  I 

600  IF  END  #1  THEN  990 
610  INPUT  # 1 : A $ 

620  PRINT  # 2 : A f 
630  GO  TO  600 

899  GO  TO  990 

900  PRINT  'ERROR  - MISSING  LINE  IN  PROTOTVPE  FILE  C INSERT  DDC 
990  CLOSE 

999  END 
4490  NEXT  I 

9008  PRINT  #2:'  '4A$4BI 
9010  RETURN 
* 

f 
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TT: < I GSWR.  MAC 

. TITLE  IGSWR 
. GLOBL  IGSWR 
. MCRLL  . RE6DEF 
. REGDEF 

IGSWR : 

TST  < R 5 ) + 

MOV  0#177570,R0 

RT5  PC 

. END 


; IGNORE  #PftRftMS 
i GET  SWR 
; RETURN 
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TT  : < I DIN.  MAC 

. TITLE  DIG  IN 
; GLOBAL  REFERENCES 
. GLOBL  IDIN 
; MACRO  LIB  CALLS 

. MCALL  . REGDEF 
. REGDEF 

; EXTERNAL  PAGE  DEFINITIONS 
CHAN0=1?1000 
CHAN1=1?1002 
; I V AL  = I D I N ( I CHAM ) 

IDIN  : 


CLR 

R0 

i ASSUME  ERROR 

CMP 

BNE 

<R5>+, ii 

RETURN 

;ONE  param  ONLV 

MOV 

0<R5)+,R1  ; GET 

CHAN  * 

BLE 

RETURN 

; ILLEGAL  C=0(FOR  CONS) 

CMP 

Rl,  #2 

;LESS  THAN  MAX  CHAN  #? 

BGT 

RETURN 

; NO  TOO  BIG 

DEC 

R1 

; FOR  FOR  SUBSCRIPT  COMPAT 

ASL 

R1 

; MAKE  WORD  INDEX 

MOV 

RTS 

0TABLE ( R1 ) , R0 

PC 

; GET  WORD 

i CONSTANT  AREA 
TABLE  : . WORD  CHAN8 

. WORD  CHAN1 
. END 
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TT  : <5L.  NflC 


TITLE 

SL 

CSECT 

SL 

LIST 

MEB 

MCRLL 

. REGC'EF,  . . V2 

MCRLL 

. INTEN 

REGDEF 

. V2.  . 

; DRUB  RDDRES5  CONSTANTS 


DRUC=172410 

DRBR=172412 

DRST  = 172414 
DRDB=172416 
DRVEC=124 

; WORD  COUNT 
; BUFFER  ADDRESS 
; STATUS  4 CONTROL 
; DATA  BUFFER 
; VECTOR  ADDRESS 

# 

; RISC  CONSTANTS 

M0NL0W=54 

OFFSET=270 

HDERR=i 

EOF=20000 

; BASE  OF  MONITOR 
i OFFSET  TO  ENTRV  OF 
i HARD  ERROR  BIT 
; END  OF  FILE  BIT 

# 

P5U=177776 

PR7=340 

PR5=240 

i 

i PSM  ADDRESS 
; P R I * 7 PSU  ECU  IV 
i P R I = 5 PSU  EClUIV 

; MACRO  DEFINITIONS 

. MACRO  DEBUG 
. ENDM 

/ 

. MACRO  LA  AD, R 

MOV  PC, R 

ADD  # AD-.  , R 

. ENDM 

MGR 
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; LORD  POINT 
LORDPT : . WORD 

DRVEC 

; VECTOR  ADDRESS 

. WORD 

DRINT- 

; OFFSET  TO  ISR 

. WORD 

PR? 

; ENTER  RT  PRI  7 

LQE : . WORD 

e 

> LAST  Q ENTRV  RDDR 

CQE  : . WORD 

0 

; CURRENT  Q ENTRV  RDDR 

i 

XFER  : 

DEBUG 

MOV 

CQE; R 4 

; GET  RDDR  OF  Q ELEMENT 

ADD 

#6;  R4 

; POINT  TO  WC 

RSL 

<R4) 

; AND  MAKE  BC'  = 2*WC 

BCC 

ERR 

i I F READ  (F'OS)  ERROR 

MOV 

#DRDB»  R!< 

; PLACE  RDDR  OF  DR  DATA  BUF  IN  R3 

NEXT  : 

INC 

( R4 ) 

, bc«bc+i 

BGT 

DONE 

> IF  > 0 THEN  DONE 

MOVE 

* - 2 < R 4 ) , R 5 

, GET  NEXT  EVTE 

INC 

- 2 < R 4 ) 

i (UPDATE  BUFFER  POINTER') 

BIC 

#177400, R 5 

MAKE  IT  B BITS  ONLV 

MOV 

R 5 . ( R l ) 

; AND  PUT  IN  LINK 

CLR 

-<  R2> 

; NOW  LETS 

^ o v 

#12,  ( RI  ) + 

; SIGNAL  OTHER  PROCESSOR 

MOV 

#200, R5  ; AND  SET 

UP  FOR 

DELAV : 

DEC 

R 5 

> A DELAV  (ASSUMING  USING  ASS  LDR) 

BNE 

DELAV 

i 

BR 

NEXT 

> WHEN  TIRED  OF  MRITING  GET  ANOTHER  CHAR 

ERR  : 

DEBUG 

M 0 V 

CQE,  R 4 

i GET  CURR  G!UE  ENTRV 

315 

#HDERR, ? - ( R 4 > 

, SET  ERROR  FLAG  IN  CSW 

DONE 

DEBUG 

CLR 

'?#QRST  ; CLEAN  J 

CLR 

MDSMC 

CLR 

M D F S A 

CLR 

»#DRDi 

MCV 

; S #■),-(  s P ) 

■ LE’S  FAKE  AN  INTERRUPT 

MOV 

*#P£W,  2(  SP) 

BIS 

4PR7, 0#PSW 

3KTEN 

5 , p : c 

RETjR'i  • 

DE  BU  3 

L A 

CQE,  R 4 

MOV 

0RMONLOL  R 5 

> 

J.MP 

95e#3ET<R5. 

*• 

BR 

RETURN 

; IF  ABORTED  GO  TO  RETURN 
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SINT:  HftLT 

. WORD  0 
DR  5 I 2 E = . -LOftDPT 

. END  'FER 


; SHOULD  BE  NO  INTERRUPTS  IN  THIS  ONE 
USED  BV  MONITOR 
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TT  CUTOUT.  MRC 

. TITLE  ITTOUT 
GLOBL  RE-ERENCES 

. GLOBL  ITTOUT 
MACRO  LIB  CALLS 

. MCALL  . REGDEF, 
. REGDEF 

i RELOCATABLE  SECTION 
. CSECT 

i CALL  ITTOUT(ICHR) 
ITTOUT  : 

MOV  <R5>+, Ri 
If:  DEC  Ri 

BLT  2f 

MOV  0<R5>+, R0 
. TTVOUT 
BR  If 

2f:  CLR  RB 

RTS  PC 
. END 


TTVOUT 


; GET  NUM  CHARS 
i REDUCE  CHAR  COUNT 
; IF  DONE  LEAVE 
;IF  NOT  GET  CHAR 
i AND  CUTPUT  IT 
> THEN  TRV  FOP  ANOTHER 

; JUST  FOR  NEATNESS 
; RETURN  TO  CALLER 
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TT  : CIDOUT.  MAC 

. TITLE  DIG  OUT 
; GLOBAL  REFERENCES 

. GLOBL  ID  OUT 
; MACRO  LIB  CALLS 

. MCALL  . REGDEF 
REGDEF 

.EXTERNAL  PAGE  DEFINITIONS 
CHAN  0 = 171804 
CHRN1=171006 

; I 5 7 A T = I D 0 J ~ < I C H A N ■ IVAL) 

IDOUT : 

C L R R0 

CMP  ( R.  5 > + . # 2 
BNE  RETURN 

MOV  0 ( R 5 ) + , R 1 
BLE  RETURN 

CMP  Ri . #2 
3 £ T RETJR  N 

DEC  R 1 

A5L  R1 

MOV  0 < R 5 ) + » § T A 8 _ E < R 1 ) 
RETURN:  RTS  PC 


ASSUME  ERROR 

SAFETV  PERCAUT  I ON 
CANT  EVEN  MASTER  SIMPLICITY' 

G E T CHAN  W 0 
TOO  SMALL 

; LESS  THAN  MAX  CHAN  NO 
N 0 -TOO  BAD 

■MAKE  FOR  SUB  COHPAT 
;mak:e  WORD  INDEX 
i OUTPUT  VALUE 


; CONSTANT  AREA 
TABLE  . WORD. C HAN 3 
WORD  CH.AN1 
END 

* 
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TT  : <1  RTF'.  MAC 

. TITLE  RTF'  ROUTINES  ( I R T P ) 
i GLOBAL  REFERENCES 
. GLOBL  I R TP 
; MACRO  LIB  CALLS 

. MCALL  . REGC'EF 
. REGC-EF 

-•EXTERNAL  PAGE  AND  VECTOR  DEFS 
TMC5R=164B00 
TMWC  = 16  4002 
TMMUX=i64004 
TMADR=i£400£ 

TMVEC=174 
TMPR I =240 
; MISE  CONSTANTS 
T M 0 = 2 0 . 

; RELOCATABLE  SECTION 
. CSECT 

I5TAT  = IRTP< ICHAN-  I VAR) 


- TIMEOUT  LOOP  COUNT 


I R TP 


1$ 


2* 


I CHAN* 

CHANNEL  NUMBER  (INTEGER) 

I VAR* 

VARIABLE  TO  REGIE V E 

A2D  VAL( INTEGER) 

ISTAT=-i 

TIME  OUT  HAS  OCCURRED 

ISTAT=-2 

ILLEGAL  # OF  PARAMS 

I STAT*-2 

RTF'  HARDWARE  ERROR 

ISTAT>=0 

OK  A NUMBER  OF  TIMEOUT  COUNTS  TO  GO 

CMP 

< R5  ) + - #2 

- NO  PARAMS 

* i 

BNE 

ERR2 

- NO  THEN  E 

RROR 

MOV 

0 ( R 5 ) + > R 1 

;GET  CHANNEL  NO 

DEC 

Ri 

- & MAKE  FORTRAN  COMPAT 

BIC 

#177740- Rl 

; MAKE  IT  LEGAL 

MOV 

#TMADR,R2 

- GET  LAST  I 

0 PAGE  ADDR  FOR  RTF' 

MOV 

( R 5 ) - ( R2 ) 

-LOAD  ADDR 

MOV 

Rl- -<R2) 

- LOAD  CHAN 

# 

MOV 

#-l- - ( R2 ) 

-•LOAD  WC  - 

START  CONVERSION 

MOV 

#TMO- R 0 

-SET  UP  TIME  OUT 

MOV 

( R 5 ) - R 1 

-GET  ADDRESS 

TST 

- ( R 2 ) 

-POINT  TO  TMCSR 

TSTB 

<R2) 

- CONV  DONE? 

BMI 

21 

; VES  - THE 

N GO  ON 

SOB 

R0,  1* 

-NO  THEN  CHECK  TIMEOUT 

DEC 

R0 

• 

-ERROR  SO  SET  TO  -1 

BR  RETURN 

- AND  LET  WORLD  KNOW  OF  TIMEOUT 

TST 

<R2> 

; CHECK  FOR 

RTF'  ERROR 
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BMI  ERRS  i FOUND  ONE  GO  REPORT 

RETURN:  RTS  PC  > FIND  RETURN 

E R R 2 : NOV  # - 2 < R O ; L E T WORLD  KNOW  OF  B ft D N E 

BR  RETURN 

ERRS : NOV  #-3- R0 

BR  RETURN 


; REPORT  HARD  ERR 
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TT  : <LINKSL.  MftC 

. TITLE  BUS  LINK  FOR  SLAVE 
; GLOBL  REFERENCES 

. GLOBL  ISND, IREC 
; MACRO  LIB  CALLS 

. MCALL  . RE6DEF 
. REGDEF 

.EXTERNAL  PAGE  AND  VECTOR  DEFS 
DAMC=172410 
DAADR=172412 
DACSR=172414 
DABUF=172416 
DAVEC=124 
DAPRI =340 
i MISC  CONSTANTS 

; NOTE  REINTERP 
XM I T=2 
REC~4 

> ABSOLUTE  SECTION 
. ASECT 
. =DA VEC 
DAINT 
DAPRI 

i RELOCATABLE  SECTION 
. CSECT 

; ISTAT=IREC<IARRAV, NNORDS ) 

IREC: 

MOV  iREC.Rl  .PUT  REC  REC  IN  R1 

BR  COMMON  .GOTO  COMMON  CODE 

; ISTAT=ISND(IARRAV. NNORDS) 

ISND: 

MOV  iXMIT.Rl  i PUT  XHIT  REQ  IN  Ri 


OF  FLAGS 

.TRANSMIT  REGUEST 
; RECEIVE  REQUEST 


COMMON 


0 PARAMS  - RETURN  STATUS  ONLV 

1 PARAMS  - DO  SEND  OR  REC  HITH  WC  FROM  MASTER 

2 PARAMS  - VERIFV  NC  1 SEND  OR  REC 


TST  <R5>+ 
BLE  STARET 


CHECK  NO  PARAMS 
RETURN  STATUS  IF  0 PARAMS 


CLR  R0 


FOR  STATUS  RETURN 


TST  STATUS 
BGT  ERRi 


SEE  IF  ALREADV  RUNNING 
TELL  CALLER  TO  TRV  LATER 


MO VB  MDACSR  + 1.R2 


> GET  FLAG  BITS 


COM 

R2 

; SND=REC  REC=SND 

BIC 

1177771, R2 

> CLEAR  NOISE 

CMP 

Rl,  R2 

; DOES  MASTER  NANT  TO 

BNE 

ERR2 

; NO  THEN  TELL  CALLER 

MOV 

<R5>+, R2 

; R2*ARRAV  ADDR 

BIC 

#1,  RJ 

i AND  MAKE  SURE  EVEN 

CMP 

-4 ( R5 ) , il 

;1  PARAM  CALL? 
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BNE  It 

: NO  THEN  ASSUME  2 

MOV  0#DABUF,R4 

; VEP-  PICK  UP  WC  FROM  MASTER 

BPL  ERR3 

; ERROR  IF  IT  WAS  POS 

BR  2 1 

i GOTO  IT 

1$  : 

MOV  0<R5)+, R 4 

; R4  = 

NEC  R4 

; -WC 

BPL  ERRS 

; I F GROSS  ERROR 

CMP  R4,  MDABUF 

j DOES  WC  AGREE 

BNE  ERR4 

i NO  THEN  DONT  XFER 

; T H I N G S 

LOOK  GO  AT  THIS 

POINT 

2$  : 

MOV  Rl, STATUS 

> S T A T U S = S E N D OR  REC 

MOV  R4,0#DAWC 

; - WC 

MOV  R3,  IMDRADR 

; ARRAV  ADDR 

MOV  CSR ( Rl ) , BtDACSR  ; TAKE  APPROP  ACTION 

STARET  : 

MOV  STATUS, R0 

> RETURN  STATUS  TO  USER 

RETURN  : 

RTS  PC 

i RETURN 

i ERROR 

HANDLER 

ERR4  : 

DEC  RO 

ERR3  : 

DEC  R0 

ERR2  : 

DEC  R 0 

ERR1  : 

DEC  R0 

BR  RETURN 

; INTERRUPT  SERVICE  ROUTINE 

DRINT : 

T 5 T 0#DACSR 

BPL  It 

; NO  IT'S  OK 

MOV  #-6, STATUS 

; YES-STATUS  -ERROR 

BR  DARTI 

; RETURN 

1$  : 

CLR  STATUS 

i SET  STATUS-SUC 

DARTI  : 

CLR  0#D ACSR 

i DISABLE  I NT  t OLD  INFO 

RTI 

i RETURN 

i IMPURE 

STATUS  : 

. WORD  0 

> HANDLER  STATUS 

; CONSTANTS 

CSR  : 

. WORD  0 

; SHOULD  NEVER  BE  USED 

. WORD  503 

; CYC,  IE, X M I T (NEW), GO 

. WORD  105 
. END 

; RECEIVE  IE, REC, GO 

* 
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TT  : <M1 0KHZ.  MRC 

. TITLE  M16KHZ 

; MASTER  10  KHZ  CLOCK  WRIT  ROUTINE 
; PASSES  ERROR  ON  OVERRUN 

; GLOBAL  REFERENCES 

. GLOBL  M10KHZ, JOBBLK 
; MACRO  LIBRARV  CALLS 

. MCALL  . REGDEF).  . V2.  . ».  1NTEN>.  SPND,  . RSUH 
. MCALL  . SVNCH 
. REGDEF 

. . V2.  . 

i EXTERNAL  PAGE  AND  VECTOR  DEFS 
KMCSR=1?2540 
KWBUF=1?2542 
KWVEC=104 
KWPR I =340 
i MISC  DEFS 

KWRRTE=112  ; 10  KHZ  INT  REPT  GO 

i RELOCATABLE  SECTION 
. CSECT 

; I5TAT=M10KHZ< ITICKS) 
i I STAT>0  CLOCK  OVERRUN 

; I STAT=0  SUCCESS 

i ISTATC0  ERROR  WHICH  SHOULD  BE  FATAL 

M10KHZ : 


CMP 

BNE 

< R 5 ) + , #1 

ERRi 

; PARAMS-1? 

; NO  - THEN  ERROR 

CMP 

BEQ 

(?<R5>  + , OLDTIC 

1$ 

j NEW  = OLD? 

> VEP  - THEN  SKIP  EXCEPTION  CODE 

MOV 

MOV 

MOV 

& - ( R5  ) j R 1 

Rl# OLDTIC 

Rl,  C-#KWB(JF 

; NOP  - GET  A COPV  OF  ITICKS 
i 0 L D = N E W 

:•  SET  UP  NEW  TIME 

T ST 
BNE 

ONETIM 

It 

; HAVE  WE  BEEN  HERE  BEFORE 
; VEP  - SKIP  INITIALIZATION 

INC 

ONETIM 

; AVOID  COMING  HERE  AGAIN 

TST 

BEQ 

JOBBLK+2 

ERR3 

i MAKE  SURE  INITRT  WAS  CALLED 
i FATAL  ERROR  HOPE  HS  IS  WATCHING 

MOV 

JOBBLK, SVNBLK+2 

; PLACE  JOB  NO  IN  SVNC  BLOCK 

M D V 
MOV 

#km: nt,  c- # k: w v e c 

IpKWPRIi  L»#KWVEC  + 2 

; INITIALIZE  THE  VECTOR 
; AND  PRIORI  TV 

MOV 

#K JRRTE, ftZKCSR 

START  THE  CLOCK 

INC 

SUSCNT 

INCREMENT  SUSPEND  COUNTER 

SPN 

• SUSPEND 
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19V  ERRCNT,  R0  > RETURN  ERRCNT  TO  USER 

CLR  ERRCNT  ; REflDV  ERRCNT  FOR  NEXT  TIME 


RETURN: 

R * S PC 

; RETURN  TO  MAINLINE 

i ERROR 

ROUTINES 

ERRS  . 

MOV  #-20.  ,R8 

3 R RETURN 

i SHOULD  BE  RATAL 

ERR2  : 

10V  #-23.  , R3 

BR  RETURN 

; SHOULD  BE  FATAL 

ERRi  . 

10V  #—10. , R0 

SR  RETURN 

; SHOULD  BE  FATAL 

; INTERRUPT  SERVICE  ROUTINE 

KWINT : 

TST  SUSCNT 

; SHOULD  HE  IGNORE  THIS 

BGT  1$ 

; NO  - IT  IS  GOOD 

INC  ERRCNT 

; REPORT  AS  OVERRUN 

RTI 

; IGNORE  THIS  ONE--- 

1*  : 

CMP  SUSCNT, #1 

; IS  IT  WHAT  WE  WANT? 

BE 2 21 

; VES  - rHEN  DONT  REPORT 

INC  ERRCNT 

; NO  - LE~  MAINLINE  KNOW 

2*  : 

DEC  SUSCNT 

i SUSPENDS  “SUSPENDS  -1 

INTEN  7 

• LET  MONITR  IN  ON  THIS 

SVNCH  #SVN3LK 

; MAKE  SURE  TALKING  TO  TASK 

3R  ERR2 

> W 0 0 P S AN  ERROR 

. IRP  X#  CRB,  Rl,  R2,  R2,  R4> 
MOV  X, -<SP> 

; SAVE  REGS 

. ENDM 

. RSUM  } RESUME  THE  MAINLINE 

. IRP  X,  <R4,  R2, R2, Ri, R0>  ; RESTORE  REGS 
MOV  <SP>  + ,X 
ENDM 


RTS  PC  > RETURN  TO  MONITR 


; IMPURE  AREA 

SVNBLK 

. WORD 

0,  8,  0,  0,  0,  — 1,  0 

; SVNC  BLOCK 

ERRCNT 

. WORD 

e 

i ERROR  COUNTER 

SUSCNT 

. WORD 

0 

; SUSPENDS  - RESUMES 

OLOTIC 

. WORD 

0 

•OLD  NO  OF  TICKS 

ONETIM 

* 

. WORD 
END 

0 

i ONE  TIME  ONL V FLAG 
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T7  : CLINKRT.  MAC 

.TITLE  BUS  LIMK  FOR  MASTER 
; GLOBL  REFERENCES 

. GLOBL  MSND, MREC, JOBBLK 
i MACRO  LIB  CALLS 

. MCftLL  REGDEF, . . V2.  . , . SPND, . SVNCH, . RSUM, . INTEN 
. REGDEF 

. . V2.  . 

; EXTERNAL  PAGE  AND  VECTOR  DEFS 
DAWC=1724i0 
DAADR=172412 
DACSR=172414 
DABUF=17241S 
DAVEC=i24 
DAPR I =246 
; MISC  CONSTANTS 

; NOTE  REINTERP  Or  FLAGS 
XM I T=2  ; TRANSMIT  REQUEST 

REC=4  ; RECEIVE  REQUEST 

; RELOCATABLE  SECTION 
. CSECT 

; ISTAT*MREC< I ARRAV,  NWORDS) 

MR  EC  : 

MOV  #REC>  Ri  j PUT  REC  REQ  IN  Ri 

BR  COMMON  iGOTO  COMMON  CODE 


; I ST  AT  = 
MSND  : 


COMMON ; 


MSNDCIARRAV,  NWORDS) 

; PUT  XM I T REQ  IN  RI 


j T WO  PARAMETER  CALL? 

; NO  THEN  JUST  RETURN  STAT 

; FOR  STATUS  RETURN 

i SEE  IF  ALREADV  RUNNING 
; TELL  CALLER  TO  TRV  LATER 

>0, 0 # D A C S R ; SLAVE  READV 

; NO  REPORT  SAME 
; R2= ARRAV  AD DR 
; AND  MAKE  SURE  EVEN 

; R 4 = 

; -WC 
J IF  GROSS  ERROR 


: HAVE  WE  BEEN  HERE  BEFORE? 
;-VEP  THEN  SKIP  INIT  CODE 
; -NO  THEN  SET  FlG 


MOV 

#XMIT, 

CMP 

<R5)+, 

BNE 

STRRET 

CLR 

R 9 

T ST 

STATUS 

BGT 

ERRi 

BIT 

# X M I T + 

BME 

ERR2 

MOV 

<R5>+, 

BIC 

#1,  R3 

MOV 

§ < R5  ) + 

NEG 

R 4 

BPL 

ERR3 

LOOK 

GO  AT 

T5T 

ONETIM 

BNE 

It 

INC 

ONETIM 
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MOV  • JOBBLK, SVNBLK+2 


i SET  UP  JOB  NUMBER 


1*  : 


MOV  # D R I N T , § # D A V E C ; SETUP  VEC  (MAKE  1 TIME  LATER) 

MOV  #DRPRI, 0IDAVEC+2  ; 4PRI0RITV 
MOV  Rl, STATUS  ; STATUS=SEND  OR  REC 


MOV 

MOV 

MOV 

MOV 


R4, 0HDAMC 
R4,  @ # D ft B U F 
R3,  9IDRRDR 


i -WC 

i -WC  FOR  OTHER  PROCESSOR 
; RRRRV  ft D D R 


CSRCRl),  0#DRCSR  ; TRICE  RPPROP  ACTION 


SF'ND 


..WRIT  FOR  COMPLETION 


STRRET:  MOV  STATUS, R6  ; RETURN  STATUS  TO  USER 
RETURN:  RTS  PC  ; RETURN 


; ERROR  HANDLER 
ERR4 : DEC  R0 
ERR3 : DEC  R0 
ERR2:  DEC  R0 
ERR1 : DEC  R0 

BR  RETURN 


; INTERRUPT  SERVICE  ROUTINE 
DRINT : 

. INTEN  7 :■  NOTIFV  MONITR 


T5T  0 # D A C S R 

BPL  1$  i NO  IT'S  OK 


MOV  1-6, STATUS 
BR  DART  I 


VES-STRTUS  = E R R 0 R 
; RETURN 


1*  : 

DART  I : 


CLR  STATUS 


i SET  STATU S=SUC 


CLR  C-#DACSR 
. SVNCH  45VNBLK 
BR  SVNERR 
. IRP  X, <R5, R4, R2, R2, Rl, R0> 
MOV  X, -<SP> 

. ENDM 


; DISABLE  I NT  & OLD  INFO 

; GET  TO  RIGHT  JOB 
i SVNC  ERROR 


RSUM 


; RESUME  MAINLINE 


.IRP  X,  <R0,  Rl,  R2,  R3,  R4,  R5> 
MOV  <SP)+,X 
. ENDM 

RTS  PC  ; RETURN 


SVNERR  : MOV  #-?,  STATUS 
HALT 


i SVNC  ERROR 

;!!!!!!!!!!!!!!!! VERV  BAD  PROBLEM 


; IMPURE 
STATUS:  .WORD 
.ONETIM:  WORD 

SVNBLK : . WORD 


0 ; HANDLER  STATUS 

0 ; ONETIME  FLAG 

0,  0,  0,  0,  0,  -1,  0 


; CONSTANTS 

CSR:  WORD  0 ; SHOULD  NEVER  BE  USED 
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WORD  XMIT+100+1; REINTER P XMIT  CODE 
WORD  REC  + 100  + 1 ; R E I N T E R P REC  CODE 
. END 
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TT : <1 5D2A.  MAC 

. TITLE  ISD2A.  MAC 
; GLOBAL  REFERENCES 

. GLOBL  I SD2A 
; MACRO  CALLS 

. MCALL  . REGDEF 
. REGDEF 

i EXTERNAL  PAGE  ADDRESES 
CHAN0=171010 
i MICS  CONSTANTS 

OFFSET  = 20000 


i ISTAT=ISD2A< I VAL, ICHN) 
ISD2A: 


CLR 

R0 

CMP 

<R5>+, #2 

BNE 

ERR2 

MOV 

§(R5)+<  R1 

ADD 

#OFFSET, Ri 

BGT 

1$ 

CLR 

Rl 

DEC 

R0 

BR 

It 

1$ : 

CMP 

Rl, # 2*0FF  S 

BLT 

2$ 

MOV 

#2*0FFSET- 

DEC 

R0 

2*  : 

MOV 

0 < R5 ) +,  R2 

DEC 

R2 

BIT 

#177740, R2 

BNE 

ERR2 

ASL 

R2 

BIS 

BISTAB(R2) 

MOV 

Rl, 0UDCTAB 

RETURN : 

RTS 

PC 

ERR2  : 

DEC 

R0 

ERR2  : 

DEC 

R0 

ERR1 

DEC 

R0 

BR 

RETURN 

UDCTAB  : 

. RE 

PT  8. 

. REPT  4 

. WORD  CHANO 

. ENDR 

CHAN0  = CHFIN0  + 2 

; ASSUME  OK 

i 2 PARAMS? 

; NO  THEN  ERROR 

; GET  VALUE  TO  OUTPUT 
; ADD  V INTERCEPT 
; IF  > 0 THEN  OK 

; IF  NOT  THEN  SATURATE  LOU 
i AND  ACKNOULEDGE  ERROR 
i SKIP  HIGHLIM  CHECK 

r-l  ; HILIM  EXCEEDED? 

i NO-  ITS  OK 

R1  ; VES  -SATURATE  HIGH 

; NOTE  ERRROR 

i GET  CHAN  # 

; & MAKE  FOR  COMPAT 

; CHAN  <=21.  t NOT  NEG 
; OUT  OF  RANGE  ERROR 

; MAKE  UORD  INDEX 

HI  i SET  CHANNEL  BITS 

?2)  ; OUTPUT  VALUE 
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. ENDR 


BISTflB : 

. REPT  8. 

WORD  0,40000,100000,140800 
. ENDR 

. END 


137 


AFFDL-TR- 79-301 1 


TT  : < I CL  K0.  MfiC 

. TITLE  ICLK0 

.SLAVE  10KHZ  READ  THEN  RESET  CLOCK  ROUTINE 
; GLOBAL  REFERENCES 

. GLOBL  ICLK0 
; MACRO  LIBRARY  CALLS 

. MCALL  . REGDEF 
. REGDEF 

.EXTERNAL  PAGE  AND  VECTOR  DEFS 
KWC5R=172540 
KWBUF=172542 
KWVEC=104 
KWPRI =240 
j MISC  DEFS 

KWRATE=li2  i I NT  REPT  10  KHZ  GO 

i ABSOLUTE  SECTION 
. ASECT 
. =KW VEC 
KWINT 
KWPRI 


; RELOCATABLE  SECTION 
. CSECT 


i I S T A T = 

ICLK9  : 

I CLK0 ( [ ITICKS  I) 
ITICKS  =N0  OF 
ISTAT  >=0 

CMP  < R 5 ) + . #1 

BNE  RETURN 

10KHZ  TICKS  FOR  CLOCK  BASE 

NO  OF  TICKS  SINCE  LAST  CALL 

; ONE  PARAM? 

; NO  THEN  JUST  RETURN  STATUS 

MOV  0 < R 5 ) + . 0IKWBUF  ; SET  UP 

MOV  #KWRATE,  0#KWCSR  > GO  TO 

NO  OF  COUNTS 
IT 

RETURN  . 

MOV  TICKS. R0 
SUB  R0. TICKS 

; P I CK  UP  TICK  COUNT 
i NORMALLY  ZERO  TICK  COUNTER 

RTS  PC 

; RETURN 

KWINT : 

TST  0 # K W C S R 

BPL  1 $ 

;ANY  ERRORS? 

MOV  #-22000. . TICKS  ; YES  - 

BAD  PROBLEMS 

1$  : 

INC  TICKS 

RTI 

i ADD  1 TO  TICK 
; RETURN 

COUNT 

; IMPURE 
TICKS  : 

AREA 
. WORD  0 
. END 

Jf: 
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TT  : <MCL  K0.  MAC 

. TITLE  MCLK0 

i SLAVE  10KHZ  READ  THEN  RESET  CLOCK  ROUTINE 
i GLOBAL  REFERENCES 

. GLOBL  MCLK0, JOBBLK 
i MACRO  LIBRARV  CALLS 

. MCALL  . REGDEF 
. REGDEF 

.EXTERNAL  PAGE  AND  VECTOR  DEFS 
KNCSR=1?2540 
KMBUF=i?2542 
KNVEC=104 
KNPR I =240 
i MISC  DEFS 

KNRATE=112 

i RELOCATABLE  SECTION 
. CSECT 

; I ST AT  = MCL K0  < [ ITICKS]) 


; INT  REPT  10  KHZ  GO 


j 

i 

MCLK0: 

ITICKS  = NO 
ISTAT  > = 0 

CNP  <R5) *. #1 
BNE  RETURN 

OF  10KHZ  TICKS  FOR  CLOCK  BASE 

NO  OF  TICKS  SINCE  LAST  CALL 

.ONE  P ARAM? 

; NO  THEN  JUST  RETURN  STATUS 

MOV  0 ( R 5 ) + , 0#KNBUF  ; SET  UP  NO  OF  COUNTS 

MOV  IKNRATE. 0IKUCSR  j GO  TO  IT 

TST  ONETIM 
BNE  RETURN 

; SEE  IF  NE  HAVE  BEEN  HERE 
i t IF  SO  DO  NORM  RETURN 

INC  ONETIM  ;IF  NE  HAVENT  MAKE  SURE  IT  DOESN 

MOV  #KMI NT. 0#KWVEC  .INITIALIZE  THE 

MOV  tKNPRI. 0#KWVEC+2  ; VECTOR 

TST  JOBBLK+2 
BNE  RETURN 
HALT 

iMAKE  SURE  HE  CALLED  INITRT 

/ A IF  HE  DID  RETURN 

.BUT  IF  HE  DIDN'T  KILL  HIM 

RETURN : 

MOV  TICKS, R0 
SUB  R0, TICKS 

PICK  UP  TICK  COUNT 
; NORMALLV  ZERO  TICK  COUNTER 

RTS  PC 

; RETURN 

KNINT: 

TST  0#KWCSR 
BPL  1# 

ANV  ERRORS? 

MOV  #-22000. , 

TICKS  ;VES  - BAD  PROBLEMS 

1$: 

INC  TICKS 

RTI 

• 

; ADD  1 TO  TICK  COUNT 
i RETURN 

; IMPURE 
TICKS  : 
ONETIM: 

AREA 
. NORD  0 
. NORD  0 
. END 

; TICK  COUNTER 
> ONE T I ME  FLAG 
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TT  : < INI  TRIAL \T.  MRC 

. TITLE  INITRT 

j INITIALIZATION  ROUTINES  FOR  RT11  CONPATAB  I L I T V 
; SPECIFICfiLLV  DOES  .PROTECT  , . GTJB  / .DEVICE 

; FOR  DALL1  FI N D KW11P  LOCAL  DRIVERS 

; GLOBL  REFERENCES 

. GLOBL  INITRT/ J 0 B B L K 


; MACRO  LIB  CALLS 

. MC ALL  . REGDEF/  . . V2.  . 

. MC ALL  . PROTECT/ . GTJB/  . DEVICE 
. REGDEF 

. . V2.  . 

; EXTERNAL  PAGE  4 VECTOR  DEFS 
KWC5R =172540 
KWBUF=172542 
KWVEC=104 
KWPR I =300 
DAMC=172410 
DAADR=172412 
DACSR =172414 
DABUF=1?2416 
DAVEC=124 
DAPR I =240 

; RELOCATABLE  SECTION 
C S E C T 


; I ST  AT  = I N I TRT  O 
; I 5TAT=@  SUCCESS 

; I S T A T < 0 ERROR 

INITRT  : 

CLR  ERRCNT 

PROTECT  # A R E A , # K W V E C 
B C S E R R 1 

. PROTECT  # A R E A / #DAVEC 
BCS  ERR2 

PROTECT  #A REA. #400 
BCS  ERR3 


/CLEAR  ERROR  CNTR 
; PROTECT  KW11P 
.;  IF  ERROR  LEAVE 
/PROTECT  VECT  DAUB 
/ IF  ERROR  LEAVE 
/PROTECT  FOR  INTER  TASK 
; IF  ERROR  LEAVE 


. GTJB  #AREAz IJOBBLK  / GET  JOB  PARAMS 


.DEVICE  #AREA/ iOEVBLK  /PREPARE  ~C 


RETURN:  MOV  ERRCNT/ R0  /UPDATE  I S T A T FOR  RETURN 

RTS  PC 

,-ERROR  ROUT  fNES 

ERRS : DEC  ERRCNT 

ERR2:  DEC  ERRCNT 

ERR1 : DEC  ERRCNT 

BP  RETURN  ; RETURN  TO  MAINLINE 


; CONSTANTS 

D E V B L K : K W C S R / 0 / ON  " C CLEAR  K W 1 1 P C S R 


COMMUNICATION 
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DACSR, 8 
0 

; IMPURE  RREfi 
ERRCNT : 0 
RRER:  . BLKW  2 

JOBBLK:  . BLKW  8. 
. END 

* 


• ON  ~C  CLEAR  DRUB  CSR 
; END  OF  LIST 


;RTli  DIRECTIVE  BLOCK 
; RRER  FOR  JOB  STATUS 
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T T : < I D2R.  MAC 

. TITLE  I D 2 ft 
. G'LOBL  I D 2 ft 
. MCflLL  REGDEF 
. REGDEF 

; ISTRT=ID2fi< IftRRflV) 

; WHERE  I ft  R R ft  V IS  ft  12  ELEMENT  INTEGER  ftRRftV 

; I STftT=6  IF  SUCCESSFUL 

; I 5TfiT=-l  IF  FAIL 

I D2ft  : 

CMP  < R 5 ) + j #1  ; ONE  PftRftM? 

BEQ  1$  ; VEP  THEN  GOOD 


MOV 

#-i, R0 

BR 

X I T 

# 

14 : 

MOV 

<R5>+,  R0 

. IRP 

X, <176760 

. IRP 

V,  <0, 1,  2, 

MOV 
. ENDM 
. ENDM 

< R 0 ) + , 0 # V 

CLR 

R0 

XI  T: 

RTS 
. END 

PC 

; NO  -SET  ERROR  FLAG 
it.  GO  RETURN 

; GET  ft D D R OF  ARRftV 
, 176410,  1 7 6 4 j:  0 > 

2> 

*2  + X i OUTPUT  CHANNEL 


i MftRK  ftS  SUCCESSFUL 


♦ 
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T T : < T T 1 . MAC 


START : 


LOOP  : 


L00P2 : 


. TITLE  TERMINAL  SWAPPER 

. MCALL  . REGDEF, . PRINT/ . EXIT 

. REGDEF 

M0NL0W=54 

TTVVEC=60 

NEWTTV=300 

BAUD6=412 

BAUD12=1012 

BAUt)24  = 20i2 

OFFSET  = 304 

FILL=56 

MOV  #TTVVEC, Ri 
MOV  #NEWTTV, R2 
MOV  #4, R3 
MOV  < Ri ) +,  ( R 2 ) + 

DEC  R3 

BNE  LOOP 

MOV  #175610, RI 

MOV  0#MONLOW, R2 

MOV  #4, R3 

ADD  #OFFSET, R2 

CLR  0<R2)  ;NEW  TO  TURN  OFF  INT 

MOV  RI, ( R2 ) + 

TST  < RI ) + 

DEC  R3 
BNE  L00P2 
MOV  0#MONLOW,R2 
MOV  #360, 342 ( R2) 

MOV  #BAUD24, 0#FILL 
. PRINT  # MS G 
. EXIT 


MSG:  .ASCI2  <?><?>/*THIS  TERMINAL  ACTIVE*/ 

. END  START 


* 
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TT : < T T 0 


START  : 

LOOP  : 

L00P2 : 

MSG  : 

* 


. MAC 

. TITLE  TERMINAL  SWAPPER 

. MCALL  . REGDEF- . PRINT/.  EXIT 

. REGDEF 

M0NL0W=54 

TT VVEC=20B 

NEWTTV=60 

BAUD  6 = 412 

BAUD12=1012 

BAUD24=2012 

OFFSET=204 

F I LL=56 

MOV  #TTVVEC- R1 
MOV  #NEWTTV- R2 
MOV  #4, R3 
MOV  < R 1 > + - <R2)  + 

DEC  R3 

BNE  LOOP 

MOV  #177560- R1 

MOV  0#MONLOW- R2 

MOV  #4- R2 

ADD  #OFFSET- R2 

CLR  0 ( R2 ) -NEW  TO  CLEAR  INT  IE 

MOV  Rl- <R2>+ 

TST  < R 1 ) + 

DEC  R3 
BNE  L00P2 
MOV  0#MONLOW-R2 
MOV  #260- 242 ( R2 ) 

MOV  # B A U D 2 4 - 0#FILL 
. PRINT  #MS6 
. EXIT 

.ASCIZ  <7><7>/*THIS  TERMINAL  ACTIVE*/ 
. END  START 
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TT : <FflO.  BAT 
$ JOB 

♦ RTil 

. R FORTRAN 
♦FAD, F AD  = F A/U/E/D 
. R LINK 

*FAD/R,FAD  = FAC»,BLOCKD,  I N I TRT>  L I NKRT>  Mi 0 KHZ,  ID2A/F 

♦ EOJ 

♦ 


TT  : <5.  BAT 

♦ JOB 

♦ RTii 

. R FORTRAN 
*5,  S = S / E 
. R LINK 

*5i 5 = 5, IRTP, I SD2A, LINKSL, I CLK0/F/I /L/C 
*IDIN, IDOUT, IGSNR 
*♦5 1 MRT 
*I12K 

♦ 

. R PIP 
*A.  = 5.  LOA 
*SL  : =A. 

♦ EOJ 


TT  : <FR.  BAT 

♦ JOB 

♦ RTii 

. R FORTRAN 
*FA, F A = F A/U/E 
. R LINK 

*FR/R, FA  = FA,  BLOCKD,  I N I TRT, L I NKRT, M10KHZ,  ID2A/F 

♦ EOJ 


TT  : <BA.  BRT 

♦ JOB 

♦ RT11 

. R FORTRAN 
*BA, BA=B A/E/U 
. R LINK 

*B  A, BA  = BA,  ITTOUT/F 

♦ EOJ 
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TT : CBLOCKD.  BRT 
$ -J  0 B 
$RTil 
R FORTRft 

*BLOCKD,  BLOCKD  = BLOCKD/ll/E 
$EOJ 


TT  : <MRC.  BRT 
$JOB 
fRTll 
R MACRO 

*INITRT, INITRT/L:MEB=INITRT 
*LINKRT, LINKRT/L : MEB=LINKRT 

* M 1 0 K H Z » M10KH2/L  : MEB=M10KHZ 
*L INKSL»  LINK5L/L:MEB=LINKSL 
*IRTP,  IRTP/L : M E B = I R T P 

*1 5D2R/ ISD2R/L : MEB=ISD2A 
*1 CLK0» ICLK0/L : MEB=ICLK0 
*1 DOUT* IDOUT/L : HEB«IDOUT 
*IGSWR, IG5MR/L : MEB=IGSWR 
♦=  I D I N,  IDIN/L  : MEB= I D I N 
*ITTOUT,  ITTOUT/L : ME B= IT  TOUT 
*ID2A,  ID2A/L  : M E B = I D 2 A 
*TT0>  TT0/L : ME  B = T T 0 
*TT1. TT1/L : MEB=TT1 
*5L/  5L/L  : M E B = S L 
. R LINK 

* T T 0 , TT0  = TT0 
*TT1, TT1=TT1 
tEOJ 


TT : <CSD. BRT 
$ JOB 
$RTli 
R FORTRAN 
*5D, SD=S/E/D 
. R LINK 

* 5 D . 5D  = SD»  IRTP.  I SD2A,  L I NKSL,  I CLK0/F/I /L/C 
*1  D I N<  IDOUT, IGSWR 

**SIMRT 

* i 1 2,K 

* 

R PIP 

*A.  =SD.  LDA 
+=5L  : = A. 

*EOJ 
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TABLE  B-l 

MASTER  MINICOMPUTER  CONFIGURATION 


$ 

MASTER  COMPUTER 


i. 

PDP-11/ 40- CE 

#105  f , INCLUDING  : 

MF11-L 

CORE  MEMORY 

1 

LCll-ft 

CONTROLLER 

1 

L ft  3 0 - P 

DECWRITER 

1 

PC11 

REftDER/PUNCH 

1 

2. 

DL11-C 

INTERFACE 

1 

2 

M M 1 1 - L 

MEMORY  EXPANSION 

2 

4. 

ft  D 0 1 - M ft 

ANALOG /DIGITAL  CONVERTER 

1 

5. 

ft  124 

MULTIPLEX  MODULE 

7 

6. 

ft  H 0 4 

SAMPLE  AND  HOLD  OPTION 

i 

7. 

RH05 

BIPOLAR  OPTION 

i 

8. 

ft  ft  1 1 - D 

DIGITAL/ANALOG  CONTROL 

£ 

9. 

B ft  6 1 4 

12  BIT  D/ft  BI-POLAR 

12 

10. 

D D 1 1 - E: 

SYSTEM  UNIT  FOR  DF 

11. 

K E 1 1 - E 

EXP  ONST : MUL, DIV, FlSH, ASHC 

1 

12. 

K E 1 1 - F 

ORIENTED  FLOATING  POINT 

1 

13. 

KW11-L 

REAL-TIME  CLOCK 

1 

14. 

KU11-P 

PROGRAMMABLE  REAL  TIME  CLOCK 

1 

15. 

BM792-YB 

R X 1 1 FLOPPY  BOOTSTRAP  LOADER 

1 

16. 

* 

RK11J-DE 

DISK  CONTROLLER 

1 

TRADEMARK,  REGISTERED:  DIGITAL  EQUIPMENT  CORP.,  MAYNARD,  MASS. 
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TABLE  B-2 


SLAVE  MINICOMPUTER  CONFIGURATION 


+■ 


SLAVE  COMPUTER 


i. 


2. 

2. 

4. 

5. 

6. 

7. 

8. 
9. 

10. 

11. 

12. 

13. 

14. 

15. 

16. 

17. 

18. 


PDP-11/ 40- C A 

MFii-L 

DLll-ft 

LT33-DC 

PC11 

MMli-L 

Bftll-ES 

H720-E 

DA11-BD 

KE11-E 

KEil-F 

K M 1 1 - P 

UDC11 

D D 02 

BA222 

BA632 

H72B- A 

BN460 

BM802 

BW741 

BC40-C-04 


® 


#5195  INCLUDING: 

CORE  MEMORV 
INTERFACE 
TELETVPE 
REflDER/PUNCH 
CORE  MEMORV 

EXTENSION  MOUNTING  BOX 
PDP  11/20  POWER  SUPPLY 
UNIBUS  LINK 

EXP  ONST.MUL, DIV, ASH, ASHC 
ORIENTED  FLOATING  POINT 
PROGRAMMABLE  REAL  TIME  CLOCK 
DIGITAL  IN/OUT  MASTER  FILE 
FILE  UNITS 

SIGNAL  CONDITIONING  MODULE 
D/A  MODULE 
POWER  PANEL 

ISOLATED  POWER  SIG.  COND. 
LATCHING  RELAY  MODULE 
CONTACT  SENSE 
MOUNTING  PANEL 


1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

1 

2 

8 

8 

2 

4 

2 

2 

12 


® 


TRADEMARK, 


REGISTERED:  DIGITAL  EQUIPMENT  CORP. , 


MAYNARD,  MASS. 
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PDP-11 /LOW  LEVEL  SIGNAL  ACQUISITION/ 

REAL-TIME  PROCESSOR  (RTP) 

The  RTP  unit  is  an  extremely  flexible  amplifier  per  channel  computer 
controlled  multiplexer  A to  D conversion  system  with  adjustable  gain  and 
filtering.  This  RTP  unit  was  designed  and  fabricated  by  personnel  of 
the  Data  Acquisition  Group  of  the  Structures  Test  Branch.  This  RTP  unit 
has  a resolution  of  1.25  microvolts  per  bit  to  1 millivolt  per  bit  in  a 
voltage  range  of  2.25  microvolts  to  8 volts  with  variable  or  fixed  steps. 
The  code  used  is  13  bits  plus  sign's  2 complement  binary.  It  has 
individual  gain  settings  from  1 to  1000  and  separate  channel  calibration. 
The  system  total  data  sampling  rate  is  about  35KC.  The  speed  is  limited 
by  amplifier  settling  time  and  line  propagation  time.  The  RTP  system 
output  is  displayed  in  local  mode  on  a digital  meter  and  in  remote  mode 
is  sent  to  the  DDC  minicomputer  in  digital  form. 

This  device  is  connected  between  the  PDP-11  uni  bus  and  two  data 
subsystems.  Either  subsystem  can  be  read  by  executing  the  appropriate 
select  code  prior  to  the  initiation  of  a read  operation.  Any  block  of 
valid  sequential  PDP-11  bus  addresses  can  be  used  as  a read-in  area. 

Note,  however,  that  the  PDP-11  must  be  addressed  at  even  boundaries 
since  exchanges  take  place  in  16-bit  words  rather  than  8-bit  bytes. 

1 . Time  Out 

Any  attempt  to  access  a non-existent  bus  address  will  cause  a 
time-out  error.  The  time-out  feature  provides  protection  against 
hanging  the  bus  as  the  result  of  a program  (or  hardware)  error.  The 
existence  of  a time-out  error  is  indicated  by  the  presence  of  A "1" 
in  bit  15  of  Control  and  Status  Register  TMCSR  (bus  address  764000). 

A time  out  condition  can  be  cleared  by  loading  A "0"  into  bit  15  of 
TMCSR  or  by  executing  a "System  Initialize." 


150 


AFFDL-TR- 79-3011 


2.  Data  Transfers 

Data  can  be  read  from  either  Channel  Addressable  or  Fixed  Sequential 
Subsystems  in  16-bit  parallel  words.  The  detailed  read-in  procedure  is 
as  follows: 

2.1  Channel  Addressable  Subsystems 

(1)  Load  into  register  TMMUX  (bus  address  764012)  a word 
representing  the  initial  data  channel  number  for  the  block  to  be  read 
(bits  00-06),  the  channel  amplifier  gain  setting  (bits  07,  08,  13),  and 
the  subsystem  selection  (bits  14,  15). 

(2)  Load  into  register  TMADR  (bus  address  764006)  the 
initial  memory  location  of  the  area  in  which  the  data  are  to  be  stored. 

The  number  must  be  even. 

(3)  Load  into  register  TMWC  the  two's  complement  equivalent 
of  the  number  of  words  to  be  transferred.  Loading  this  number  starts 

the  "Read  Subsystem"  operation. 

(4)  If  it  is  desired  to  interrupt  the  main  program  when 
the  read  operation  has  terminated,  load  a "1"  into  bit  06  of  register 
TMCSR.  The  vector  address  for  the  interrupt  is  174-176  and  the  priority 
level  is  fixed  at  seven  by  the  hardware.  The  Interrupt  subroutine  should 
clear  the  enable  by  loading  a "0"  into  bit  06  of  TMCSR  before  returning 
to  the  main  program. 

(5)  Step  4 may  be  omitted  in  favor  of  monitoring  the 
ready  flag  (bit  07  of  TMCSR).  When  the  read  operation  has  terminated, 
the  ready  flag  will  switch  from  "0"  to  "1". 

2.2  Fixed  Sequential  Subsystems 

(1)  Load  into  register  TMMUX  a word  indicating  the  subsystem 
selection  (bits  14,  15).  The  remaining  bits  of  this  register  are  not 
applicable  to  fixed  sequential  subsystems. 

(2)  Execute  steps  2 through  5 of  paragraph  2.1. 
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3.  Summary  of  Register  Bit  Assignments 

Bit  06:  Interrupt  Enable  - When  set  to  "1"  immediately  after 
initiation  of  a "Read  Subsystem"  operation,  executes 
an  interrupt  when  operation  terminates.  Should  be 
cleared  by  interrupt  subroutine.  Can  also  be  cleared 
by  System  Initialize.  Read/Write. 

Bit  07:  Block  Ready  Flag  - Monitors  repeatedly  during  a 
"Read  Subsystem"  operation.  When  operation  has 
terminated,  flag  will  switch  from  "0"  to  "1".  Is 
cleared  by  initiation  of  next  read  operation.  Is  set 
by  "System  Initialize"  and  "Time-Out"  error.  Read  only. 

Bit  15:  Time  Out  Flag  - Set  by  program  error  or  hardware 

failure  (attempting  to  access  non-existent  memory). 

When  set,  clears  aborted  bus  cycle  and  returns 
control  of  bus  to  processor.  Can  be  cleared  under 
program  control  or  by  "System  Initialize." 

Read/partial  write. 

TMWC  = 764002 

To  initiate  "Read  Subsystem"  operation,  load  register  with 
the  two's  complement  equivalent  of  the  number  of  words  to 
be  read.  When  register  overflows,  read  operation  is  automatically 
terminated  and  ready  flag  of  EMCSR  is  set.  Read/Write. 

TMADR  = 764006 

Load  with  initial  address  of  PDP-11  read-in  area  prior  to 
initiation  of  "Read  Subsystem"  operation.  Throughout  operation, 
contents  of  register  indicate  PDP-11  has  address  at  which 
next  incoming  word  will  be  stored.  Read/write. 
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TMMUX  = 764004 

Bits  00-06: 

Channel  Counter  - Load  this  position  of  register  with 
number  of  first  subsystem  channel  to  be  transferred  to 
the  PDP-11.  Throughout  "Read  Subsystem"  operation,  contents 
indicate  number  of  next  subsystem  channel  to  be  transferred 
to  PDP-11  storage.  Not  used  with  fixed  sequential  subsystems. 
Write  only. 

Bits  07-08: 

Normally  loaded  with  the  low  and  middle  order  bits  of  the 
desired  channel  gain  designator.  If  necessary,  can  be  added 
to  channel  counter  (bits  00-06)  to  increase  range  to  000-777. 
Write  only. 

Bit  13: 

High  order  bit  of  channel  gain  designator.  Used  with  bits  08, 
07  to  select  one  of  eight  possible  channel  gain  values. 

Write  only. 

Bit  14,  15: 

To  select  subsystem  #1,  load  0^  in  bits  14  and  15, 
respectively.  To  select  subsystem  #2,  load  K)  in  bits  14 
and  15,  respectively.  Write  only. 
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TEST  STAND 

The  DDC  hardware  and  software  for  this  phase  were  tested  on  a three- 
channel  test  stand  designed  to  simulate  a portion  of  the  Advanced 
Metallic  Air  Vehicle  wing  carry  through  structure.  Two  hydraulic  jacks 
are  connected  to  a rigid  beam.  The  third  hydraulic  jack  is  connected 
to  a relatively  flexible  torque  arm  attached  to  the  same  beam. 

Basic  elements  of  the  test  stand  are  shown  in  Figure  B-l . The 
1000- pound  load  hydraulic  jack  is  1-1/2  in.  bore  with  24"  stroke.  The 
300-pound  load  hydraulic  jack  has  a 1"  bore  and  24"  stroke.  All  servo- 
valves are  rated  at  5 GPM  with  a IK  drop  across  them  at  full  flow. 
Hydraulic  line  pressure  for  all  runs  was  maintained  at  3000  psi. 

There  are  significant  differences  between  Phase  I and  Phase  II 
loading  systems.  Phase  I loads  were  in  tension  only.  Phase  II  loads 
are  connected  to  provide  both  tension  and  compression  on  the  same 
hydraulic  jack.  Phase  I loads  were  attached  to  a flexible  load  with  a 
long  time  constant.  Phase  II  loads  are  paralleled  on  a very  stiff  beam 
with  a very  short  time  constant  (worst  case). 

LOAD-SENSING  SYSTEM 


Load  cells  for  the  two  parallel  connected  hydraulic  jacks  are  rated 
at  a 1000-pound  maximum.  The  load  cell  on  the  flexible  arm  is  rated  at 
300  pounds  maximum.  Sensitivity  of  the  load  cells  are  2 millivolt  per 
volt  for  the  1000-pound  load  cells  and  3 millivolts  per  volt  for  the 
300-pound  load  cell.  Full-scale  signals  (feedback)  are  20  and  30 
millivolts  for  the  1000-  and  300-pound  load  cells  respectively. 
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Figure  B-l . Test  Stand 


155 


AFFDL-TR-79-3011 


0)  a> 
s-  -O 
•r-  O 
3 O 


a:  o o 
o — i z o 

CQOD> 

< n:  a:  ir> 


i i i i i i 
a«/)h>3X 


L. 

a 

O 0) 

a.  > 


156 
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LOAD  CELLS  AND  SIGNAL  CONDITIONERS 

LOAD  CELLS 

The  load  cells  used  to  measure  the  applied  load  to  the  structure 
were  four-bridge,  universal  type,  strain  gage  based  load  cells  of 
350  ohm  Impedance  manufactured  by  General  Dynamics  Corp.,  Forth  Worth, 
Texas,  for  the  Advanced  Metallic  Air  Vehicle  Structure  test  program. 

The  load  cells  were  calibrated  to  an  accuracy  of  ±1%  of  full-scale 
output  with  a standard  load  cell  traceable  to  NBS.  The  load  cells  used 
for  DDC  of  the  AMAVS  had  capacities  of  100,  150,  200,  and  575  KIPS  with 
a nominal  output  of  5 millivolts  per  volt  of  input  at  full-scale  load. 

A sketch  of  a typical  load  cell  Is  shown  in  Figure  B-3.  The  DDC  system 
utilized  the  "D"  bridge  of  each  load  cell. 

SIGNAL  CONDITIONING  EQUIPMENT 

Load  cell  signal  conditioning  modules  were  B&F  Instruments,  Inc. 
Model  1-700  with  30-100K  power  supply  and  I-700SG  Mode  Card  with  + 
one  step  50K  ohm  shunt  calibration.  The  outputs  of  the  signal 
conditioning  modules  were  fed  into  the  Real  Time  Peripheral  (RTP)  unit. 
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(POLARITY  SHOWN  FOR  TENSION  IN  LOAD  CELL) 


Figure  B-3.  AMAVS  Load  Cell  Instrumentation  Diagram 
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(Courtesy  Burr-Brown,  Operational  Amp.  Booklet) 


Figure  B-4.  Servo-Valve  Current  Driver  Schematic 
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TABLE  B-3 

AMAVS  LOAD  HYDRAULIC  JACKS  & SERVO-VALVES 

HYDRAULIC  JACKS  SERVOVALVES 

MAX.  LOAD 


LOAD 

CYL.  DIM. 

NO. 

@ 3000  PS I 

GPM-NO. 

OHMS 

MA 

W1 

7 x 80 

2 

115,455 

60-1 

160 

20 

W2 

8 x 80 

2 

150,000 

60-1 

160 

20 

W3 

7 x 80 

2 

115,455 

60-2 

160 

20 

w4 

8 x 80 

2 

150,000 

40-2 

400 

7.5 

PSA-FWD 

12  x 4 

2 

339,300 

5-1 

400 

7.5 

PSA-AFT 

8x4 

4 

150,000 

5-1 

400 

7.5 

F2 

7x12 

2 

115,455 

10-1 

400 

7.5 

F3 

7 x 18 

1 

115,455 

10-1 

400 

7.5 

F4 

7 x 18 

1 

115,455 

10-1 

400 

7.5 

f5  l&r 

8 x 46 

2 

150,000 

40-1 

400 

7.5 

F6 

8 x 12 

1 

150,000 

10-1 

400 

7.5 
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Figure  B-5.  View  of  AMAVS  Test  Article  and  Jig 


AFFDL-TR-79-3011 


APPENDIX  C 

DERIVATION  OF  DIGITAL  CONTROLLER 

The  approach  to  controller  design  used  here  is  to  develop  a digital 
algorithm  that  mimics  analog  proportional  plus  integral  control  action. 
This  design  procedure  is  straightforward  and  provides  the  test  engineer 
with  digital  gains  which  are  simply  related  to  the  analog  gains  and 
hence  to  analog  observables  (rise  time  and  peak  overshoot)  which  measure 
the  effectiveness  of  the  loop. 

The  continuous  proportional  plus  integral  controller  is  described  by 

M(t)  = K e(t)  + K.f2Q  e(T)dx  (A) 

Let  X(t)  represent  the  integral,  then,  replacing  the  integration  by  the 
trapezoid  rule  yields 

X(tk)  = X(tk_1)  + \ (e(tk)  + e(tk_1 ))  (B) 

Combining  (B)  with  the  sampled  version  of  (A) 

M(tk)  = Kp  e(tK)  + K.  X(tk) 

provides  a digital  PI  algorithm.  This  algorithm  requires  storage  of  the 
old  value  of  the  integral  and  the  old  value  of  the  error.  The  storage 
of  the  error  can  be  avoided  by  rearranging  the  computations  as  follows: 

The  difference  equation  corresponding  to  (B)  and  (A)  is 

Mk  - Hk_,  = (K,T/2  4 Kp)  ek  4 (K.T/2  - Kp)  V, 
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The  "observable"  standard  form  simulation  for  this  difference 
equation  is  [ * ] 


Mk  - \ + <K)T/2  + KP»  ek 
This  is  Darcy's  algorithm  with 

B = K.J 

A = ^T/2  + Kp 

Notice  that  the  requirement  to  store  ek _1  has  been  eliminated  and,  more 
importantly,  the  update  of  the  integral  can  be  accomplished  after  the 
control  update  while  waiting  for  the  next  period. 


♦State  Variables  for  Engineers,  De  Russo,  Roy,  & Close,  John  Wiley  & Sons, 
Inc.,  1965. 
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APPENDIX  D 

LOAD  PROFILE  OF  AMAVS  FATIGUE  TEST 
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APPENDIX  D (Continued) 
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